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ATARI, BASIC, PEEK Y POKE 


El lenguaje de programaclon BASIC se compone de un conjunto 
de comandos con I os cuales se forman I os programas segun 
unas determinadas normas. El ordenador es capaz de ejecutar 
estas Instrucclones graclas at traductor (fnterprete) que 
transforma los comandos BASIC al lenguaje mSqulna. Dlcho de 
manera mas simple, cada comando BASIC llama a una corta 
rutlna en lenguaje maqulna que le corresponded 

Sin embargo, a la facllldad de manejo del BASIC se le 
contrapone la lentitud con que este ejecuta los programas. 
Elio es debldo, por un lado, al tlempo que se Invferte en su 
traduceIon y, por otro, a la compleja estructuraclon de los 
mlsmos, mucho mas send I la en un lenguaje dlrecto. 

A la mayorTa de usuarlos no les molesta especlalmente esta 
drcunstancla; el hecho de ahorrarse unos mlcrosegundos en 
la ejecuclon de los programas apenas tlene Importancia para 
el programador aficionado. Sin embargo, la persona que haya 
adqulrldo clerta experlencla en programaclon BASIC, pronto 
se dara cuenta de las llmltadas poslblIIdades que permlte su 
lexlco. 

Pero Incluso al Ilegar a este Ifmlte, el lenguaje BASIC no 
nos deja en la estacada. Utlllzando convenlentemente los 
comandos PEEK (vlstazo) y POKE (empujon) en un programa 
BASIC, podemos acceder dlrectamente a las cel das de memorla 
del ordenador. De esta forma, y en funclSn de la experlencla 
y conocImlentos del programador, se pueden elaborar 
programas proplos haclendo uso del dlrecclonamlento dlrecto. 

Para ello es cond!c!6n necesarla estar al corrlente de lo 
.que ocurre en cada uno de los nlveles de la memorla del 
ordenador, de la forma de actuar de los comandos PEEK y 
POKE, y de las cel das de memorla en las que se pueden 
efectuar camblos. 

Sobre estos partlculares es de lo que pretende Informarle 
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este llbro. 


El corazon del ATARI es un procesador de 8 bits que puede 
admlnlstrar 65536 (0 a 65535) posI clones de memorla 
(dlrecclones). Cada una de estas posI clones de memorla se 
compone de 8 bits (binary digits). 

La Informaclon generada por un bit corresponde a una 
dec!s!6n si/no, lo que para la mSquIna signified el paso o 
no de corrlente, es declr, encendldo o apagado. 
Matematlcamente se expresa con 1 o 0. 

Un grupo de ocho bits deflnen un byte. Esta es la menor 
uni dad de la memorla a la que podemos acceder. Cada posIcI on 
de memorla estS ocupada por un byte. En el byte se aslgna un 
lugar de 0 a 7 a cada uno de I os bits que lo componen. De 
esta forma se obtlene un numero blnarlo de ocho clfras: 


ESTRUCTURA DE UN BYTE: 


Ntimero del bit 

7 

6 

5 

4 

3 

2 

1 

0 

Bits (ejemplo) 

1 

0 

0 

1 

0 

1 

1 

0 

Valor blnarlo 

2 7 

2 6 

2 5 

2 4 

2 3 

2 2 

2 1 

2° 
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El numero blnarlo de ocho clfras, que a partlr de ahora 
tamblSn desIgnarS como bit tlpo, pued© ser transformado 
fScilmente en valor decimal. Para ello deben sumarse los 
valores blnarlos d© todos los bits que se encuentran a "I": 


VALOR DECIMAL DE UN BYTE: 


Ndmero de bit 

7 

6 

5 

4 

3 

2 

1 

0 

Bits (ejemplo) 

1 

0 

0 

1 

0 

1 

1 

0 

Valor poslclonal 

128 

64 

32 

16 

8 

4 

2 

1 


En este ejemplo pues, el byte tlene el valor decimal 
128+0+0+16+0+4+2+0=150. SI con el comando POKE n,150 se 
"empuja" el valor 150 a la dlrecclon n, en el la se deflnlra 
el bit tlpo del ejemplo. Si con el comando PEEK (n) ,r se 
echa un vlstazo 11 a la dlrecclon n donde se encuentra 
nuestro bit tlpo, el comando PEEK encontrarS el valor 
decimal 150. 
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AsT pues en el BASIC del ATARI solo se trabaja con ntimeros 
declmales. Sin embargo, respecto a I os ntimeros blnarlos debe 
tenerse en cuen+a, que la poslclon de cada bit en un byte 
corresponde a un valor determlnado. El bit n tlene el valor 
poslclonal 2 elevado a n. SI ademSs sabemos que 2 elevado a 
0 es Igual a 1, podemos empezar a trabajar con PEEK y POKE. 

Los valores declmales tlenen poca utilldad en la 
programaclon en lenguaje maqulna; un valor como 150 no 
Indlca de entrada I os bits actlvados y desactlvados. La 
forma blnarla tampoco es que sea muy practlca con sus largas 
f11 as de 0 y 1. Por ello suelen agruparse a menudo cuatro 
bits en un solo valor. Cuatro bits pueden representar 
valores de 0 (0000) a 15 (1111). El nfimero 16 es la base, 
como su nombre Indlca, del slstema hexadecimal: 


Dec Ima1 

0 1 

2 

3 4 

5 6 7 

8 9 10 

11 12 13 14 15 

Hexadeclma1 

0 1 

2 

3 4 

5 6 7 

8 9 A 

B C D E F 

Ejemplos: 

BInarlo 

0000 


0010 

0101 

1000 

1010 1111 

Declma1 

000 


002 

005 

008 

010 015 

Hexadeclma1 

0 


2 

5 

8 

A F 

Las clfras 

hexadeclmales 

tamblen 

pueden 

agruparse para 

formar ntimeros hexadeclmales, lo 

mIsmo < 

que las clfras 

• 

blnarlas 

para 

formar 

ntimeros 

blnarlos 

y las clfras 


(declmales) para formar ntimeros (decimales). 

BlnarJo 0000 0000 0001 0010 0100 1101 1111 1111 
Decimal 000 018 077 255 
Hexadecimal 00 12 4 D F F 

Un byte puede tener valores declmales entre 0 y 255. Estos 
tambl6n pueden representarse en forma hexadecimal con dos 
clfras (de 00 a FF). Los ntimeros hexadeclmales tlenen la 
ventaja de ser mucho mas manejab Ies que I os ntimeros 
blnarlos, permltlendo ademas una buena orlentaclon respecto 
a la estructura matemStlca del ordenador. Puesto que los 
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valores blnarlo y hexadecimal estcin fntlmamente ligados, 
ambos pueden relacfonarse con la base, mlen+ras que el 
si sterna decimal no permite prSctIcamen+e relac!6n alguna. 

AI trabajar con el BASIC del ATARI no hay que preocuparse 

% 

especiaImente por Ios ntfmeros hexadeclmales. Basta con tener 
ciertos conocimien+os sobre el si sterna blnarlo. Sin embargo, 
dentro de la memoria dehordenador es mSs f Sc 11 orlentarse 
utlllzando la notacl6n hexadecimal. 

^Por qu6? SIga leyendo. 
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JUEGOS DE NUMEROS 


jNo tan deprlsa! Antes de mlrar en las profundldades de la 
memorla, slga manejando un poco mis I os sfstemas de ndmeros 
que se acaban de presentar. 

Un sisterna num6rlco es un conjunto de cffras que se comb I nan 
para formar ndmeros cualesqulera. La posIclSn de una clfra 
en un ndmero le da su valor. 

Habltualmente trabajamos con el slstema decimal, formado por 
las dlez clfras de 0 a 9. Cada poslclon en un ndmero decimal 
representa una potencla de dlez. La Ciltlma posIcl6n, o 
poslclon cero (unldades), tlene el valor 10 elevado a 0 = 1. 
La segunda poslclon (decenas) tlene el valor 10 elevado a 1 
= 10. La tercera poslclon (centenas) el valor 10 elevado a 2 
= 100. El ndmero 417 se representa pues por 4*10 elevado a 2 
+ 1*10 elevado a 1 + 7*10 elevado a 0 d blen 400 +10+7. 

Los demas slstemas numerlcos tambI6n funclonan de la mlsma 
manera. Asf pues, el slstema blnarlo s6lo utlllza las dos 
clfras 0 y 1. Cada poslclon en un ndmero blnarlo corresponde 
a una potencla de base 2. 

El slstema hexadecimal utlllza dleclsels clfras (0 a F). 
Cada poslclon en un ndmero hexadecimal corresponde a una 
potencla de base 16. El numero 3E representa el valor 3*16 
elevado a 1 + E*16 elevado a 0 = 3*16 + 14*1, que 
correspondeda a I ndmero 62 en notac!6n decimal y a I 0011 
1110 en blnarla (el espaclo entre ambos bloques s6lo slrve 
para facllltar la lectura del ndmero y los 0 de las 
poslclones superlores podrfan suprlmlrse tal como en la 
notac!6n decimal, donde el ndmero 00531 tlene el mlsmo valor 
que el 531• 

En Informatlca es habitual separar los ocho bits de un byte 
en dos bloques. Este bloque de cuatro bits se llama "nibble'* 
y puede comprender valores entre 0 y 15, lo que corresponde 
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Los matematlcos, de Ios que es conoclda su aflc!6n por toda 
clase de juegos, trabajan con todos los slstemas num6rlcos 
I maglnab Ies. Asf tambi^n tlene cierto interns el si sterna 
duodecimal, de base 12, compues+o por las clfras 0 a B. 
Algunos slstemas de numeraci6n y de medlda antiguos utlllzan 
esta base, como por ejemplo, la hora o la pulgada. Tal 
preferencla se deba seguramente a I hecho de que el doce no 
solo es divisible entre dos, slno que tambI6n lo es entre 
tres y cuatro. 

Puesto que el paso de un si sterna num^rlco a otro es bastante 
laborloso, sobre todo si se utlllzan bases tan dlferentes 
entre sf como 2 y 10 6 16 y 10, y'tenlendo en cuenta que el 
ordenador fue creado preclsamente para ahorrarnos tareas de 
rutlna, es !6glco confecclonar programas que se encarguen de 
el lo. 

El programa DEZXBIN.BEC transforma un ndmero decimal entre 0 
y 255 en su correspond Iente ndmero blnarlo de ocho clfras. 
Este programa no estd protegldo contra errores de entrada: 
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0 REM DEZXBIN.BEC 

1 REM ******************************* 

2 REM * * 

3 REM * TRANSFORMACION DE DECIMAL * 

4 REM * A BINARIO * 

5 REM * * 

6 REM ******************************* 

10 DIM B(7) 

20 FOR J=0 TO 7:B(J)=0:NEXT J 

30 •? CHR$(125):? "POR FAVOR INTRODUZCA UN NUMERO DECIMAL 
40 ? :? "DE 0 A 255 PULSA <RETURN>":? 

50 INPUT D 
60 R=D 

90 IF D>127 THEN D=D-128:B(7)=1 
100 IF D>63 THEN D=D-64:B(6)=1 
110 IF D>31 THEN D=D-32:B(5) = 1 
120 IF D>15 THEN D=D-16:B<4)=1 
130 IF D>7 THEN D=D-8:B(3)=1 
140 IF D>3 THEN D=D-4:B(2)=1 
150 IF D>1 THEN D=D-2:B(1)=1 
160 B(0)=D 

170 ? :? "DEC ”;R;” = ";"BIN 
";B(7);B(6);B(5);B(4);B(3);B(2);B(1);B(0) 

180 ? :? "OTRAS ENTRADDAS? S/N" 

190 IF PEEK(764)=62 THEN POKE 764,255:G0T0 20 
200 IF PEEK(764)=35 THEN POKE 764,255:END 
210 GOTO 190 


10: Se da la DIMensIon 8 a la variable B (de 0 a 7), 

que es+a pueda tomar I os ocho bits, 

20: CHR$(125) llmpla la pantalla. 


para 
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90 a 150: AquT se de+erminan los bits que estan ac+ivados. 
Si el numero decimal en+rado es mayor que 127 se activa el 
bit 7 (valor posicional 128)* Si.se da este caso, se restara 
128 del numero entrado D. Si 6ste es ahora mayor que 63, 
habra que activar el bit 6 (valor posicional 64), etc. 

160: AquT D ya solo puede tener valor 0 6 1 y 6ste e r . 
precisamente el del bit 0 (valor posicional 1). 

170: Imprime el resultado. 

180: SI el usuario desea transformar otro numero decimal, 
debe entrar "5"« 

190 y 200: Consul tan la entrada reallzada en la direcci6n 
764. M6s adelante le explicaremos detaI Iadamente como 
funciona esto. 

210: La ejecuci6n vuelve hacia 190. De esta forma se crea 
un bucle del cual solo puede sallrse pulsando la tecla ,f S" o 
”N n . Otra manera de interrumpir el programa es pulsando 
BREAK, ya que no esta protegido contra ello. 

La persona que tenga un poco de experiencia en programaclon 
reconocera rapidamente, que las ITneas 90 a 150 tienen el 
aspecto de poder configurarse de forma mas eficiente, por 
ejemplo, medlante un bucle F0R-NEXT. Sustltuya las ITneas 90 
a 160 del programa anterior por las ITneas 110 a 130 del 
programa DEM0001.bee y compruebe el resultado. Un programa 
mas corto no tiene que ser necesariamente m£s rcipido. El 
cilculo de la potencia de base dos en la nueva ITnea 110 
requiere mas tiempo de lo deseado. La dlferencia es 
sorprendente: 
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0 REM DEM0001.BEC 

1 REM ******************************* 

2 REM * * 

3 REM * MAS DESPACIO CON FOR-NEXT * 

4 REM * * 

5 REM ******************************* 
110 FOR J=7 TO 1 STEP -1:BW=2~J 

120 IF D>BW-1 THEN D=D-BW:B(J)=1 
130 NEXT J:B(0)=D 


El programs slgulente reallza la funclfin Inversa. El usuarlo 
entra un numero blnarlo d© ocho clfras y el ordenador halla 
el correspondent© numero decimal. 


0 REM BINXDEZ.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * CONVERSION BINARI0-DECIMAL * 

4 REM * * 

5 REM ****************************** 

10 DIM B$(8),A(8) 

20 

A(8) = 1:A(7)=2:A(6)=4:A(5)=8 sA(4) = 16:A(3)=32:A(2)=64:A(1) = 128 
30 ? CHR$(125):? "INTRODUZCA UN NUMERO BINAR10” 

40 ? :? 11 CON 6 DIGITOS Y PULSE A CONTINUACION >RETURN<” 

50 INPUT B$ 

60 FOR J=1 TO 8 

70 IF B$(J,J)=”1” THEN D=D+A(J) 

80 NEXT J 

100 ? :? ”BIN ”;BS;;”DEC ”;D 
110 ? :? "DESEA CONTINUAR? S/N” 

120 IF PEEK(764)=62 THEN POKE 764,255:D=0:GOTO 30 
130 IF PEEK<764)=35 THEN POKE 764,255:END 
140 GOTO 120 
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10: Se da la DIMenslon 8 a la variable B$ (de 1 a 8), para 
que pueda aceptar el numero binarlo. Aunque A tenga la 
DIMenslon nueve (de 0 a 8), s6lo se utlllzan las variables 
de A(1) a A(8) para no confundlr la relaclon con B$. De la 
mlsma manera se podrfa trabajar con A(0) a A(7). 

20: Las variables A(8) a A(1) toman los valores declmales 
que corresponden a los valores poslclonales de las 
respectlvas poslclones blnarlas. 

60 a 80: Este bucle FOR-NEXT lee cada uno de los caracteres 
del n(3mero binarlo de ocho clfras que ha sldo entrado 
anterlormente y almacenado como string en la variable B$. La 
Instrucclon BASIC del ATARI B$(n,m) saca un elemento de BS 
comenzando por el caracter que se encuentra en la poslclon n 
del string y flnallzando con el caracter de la poslclon m de 
B$. De esta forma, B$(J,J) saca solamente un unlco caracter 
de B$, que es preclsamente el que se encuentra en la 
poslclon J. Los caracteres de un string se cuentan de 
Izqulerda a derecha, o sea, en el sentldo de lectura. El 
primer caracter de B$ es el bit 7 de valor decimal 128* El 
valor decimal que corresponde a cada bit ha sldo aslcnado a 
la variable A(J) en la Ifnea 20. 

Al efectuar el paso a numeros hexadecimales se presenta una 
dlflcultad adlclonal, ya que a las clfras 0 a 9, aceptadas 
como valores num6rlcos por el ordenador, se ahaden las 
letras A a F, que el ordenador solo puede procesar como 
string. Por ello se suele Indlcar con $ el que se trata de 
un nOmero hexadecimal, o sea, 243 = SF3: 
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0 REM DEZXHEX,BEC 

1 REM ****************************** 

2 REM * * 

3 REM *CONVERS. DECIMAL-HEXADECIMAL* 

4 REM * * 

5 REM ****************************** 

10 DIM HEXS(16),HS(1),L$(1) 

20 HEX$= M 0123456789ABCDEF" 

30 ? CHR$(125):? "INTRODUZCA UN NUMERO DECIMAL" 

40 ? :? "ENTRE 0 Y 255 PULSANDO A CONTINUACION <RETURN>" 

50 INPUT D 
60 R=D 

70 A=lNT(D/1 6):H$=HEX$(A+1, A+1 ) 

80 B=D-A*16:LS=HEXS(B+1,B + 1) 

170 ? :? "DEC. ";RHEX. ";H$;LS 
180 ? :? "DESEA CONTINUAR S/N" 

190 IF PEEK(764)=62 THEN POKE 764,255:G0T0 30 
200 IF PEEK(764)=35 THEN POKE 764,255:END 
210 GOTO 190 

10: HEX$ recogera las dleclsels clfras necesarlas. El 
numero hexadecimal buscado se compone de dos clfras. La 
posicion superior (HI = high) se recoge en H$ y I a Inferior 
(LO = low) en L$. 

20: Aquf se deposl+an las clfras de 0 a F en HEXS. 

50: Se almacena en D el nijmero decimal entre 0 y 255 

entrado por el usuario. 

70: AI dlvldir D entre 16, la parte entera (I NT) del 
resultado corresponde a la posicion superior del numero 
hexadecimal. Pero puesto que este resultado es decimal, 
todavTa se debera aver I guar la cl fra hexadecimal correcta de 
HEXS: HEXS(A+1,A+1)• Ya que la clfra hexadecimal 0 es el 
primer caracter en HEXS, debe sumarse 1 a I resultado A. 

80: El resto de la division anterior corresponde a la clfra 
hexadecimal Inferior. D-A*16 determ Ina el resto en forma 
decimal, que sera transformado de Igual manera en una clfra 
hexadeclmaI• 


Al pasar de ndmeros hexadeclmales a declmales se presenta el 
mlsmo problema de tener que transformar las clfras 
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hexadeclmales A a F: 


0 REM HEXXDEZ.BEC 

1 REM ********************************* 

2 REM * * 

3 REM * CONVERSION HEXDECIMAL-DECIMAL * 

4 REM * * 

5 REM ********************************* 

10 DIM HEXI(2),H$(1),L$(1 ) 

30 ? CHR$(125):? "INTRODUZCA UN NUMERO HEXADECIMAL" 

40 ? :? "CON 2 DIGITOS PULSANDO A CONTINUACION <RETURN>" 

50 INPUT HEXS 

60 H$=HEX$(1,1):t$=HEX$<2,2) 

70 IF H$="A" THEN H=10:GOTO 150 
80 IF H$="B" THEN H=11:G0T0 150 
90 IF H$="C" THEN H=12:G0T0 150 
100 IF HS="D" THEN H=13:G0T0 150 
110 IF H$="E" THEN H=14:G0T0 150 
120 IF H$="F" THEN H=15:G0T0 150 
130 H=VAL(H$) 

150 IF L$="A" THEN L=10:G0T0 290 
160 IF L$="B" THEN L=11:GOTO 290 
170 IF L$="C" THEN L=12:G0T0 290 
180 IF L$="D" THEN L=13:G0T0 290 
190 IF L$="E" THEN L=14:G0T0 290 
200 IF L$="F" THEN L=15:G0T0 290 
210 L=VAL(L$) 

290 D=H*16+L 

300 ? :? "HEX.";HEX$;"=";" DEC.";D 
310 ? :? " DESEA CONTINUAR? S/N" 

320 IF PEEK(764)=62 THEN POKE 764,255:GOTO 30 
330 IF PEEK(764)=35 THEN POKE 764,255:END 
340 GOTO 320 

10: El ntimero hexadecimal a entrar s6lo puede tener dos 

clfras. Segdn esta condic!6n se fija el DIMenstdnado. 

60: Se determinan H$ y L$ proceden+es del INPUT HEX$. 
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70 a 120: SI H$ es una cl fra de A a F, se anota en H el 

valor decimal de H$. 

130: En caso contrarlo, se puede transformer la clfra en H$ 
dtrectamente en un valor num^rlco medlante el comando VAL. 

150 a 210: Se transforma L$ de Igual manera. 

290: Ahora puede calcularse fdcllmente el valor decimal 

buscado. La pos1cl6n superior del ndmero hexadecimal tlene 
valor 16 (o sea, H*16), la Inferior tlene valor 1 (o sea, 
1*L) = H*16+L. 

Ahora el paso de un ndmero blnarlo a uno hexadecimal tan 
s6lo es una comblnacl6n de las rutlnas de programa 
comentadas anterlormente: 


0 REM BINXHEX.BEC 

1 REM *************************************** 

2 REM * CONVERSION BINARI0-HEXADECIMAL * 

5 REM ************************************ 

10 DIM HEX$(16),H$(1),L$(1),B$(8),A(8) 

20 HEX$="0123456789ABCDEF" 

30 A(8)=1:A(7)=2:A(6)=4:A(5)=8:A(4)=1:A(3)=(2)=4:A(1)=8 
40 1 CHR$(125):? "INTRODUZCA UN NUMER0 BINAR10" 

50 ? :? "CON 8 DI GUOS PULSAND0 A C0NTINUACI0N <RETURN>" 
60 INPUT B$ 

70 FOR J=1 TO 4 

80 IF B$(J,J)="1" THEN H=H+A(J) 

90 NEXT J 

100 H$=HEX$(H+1,H+1) 

110 FOR J=5 TO 8 

120 IF B$(J,J)="1" THEN L=L+A(J) 

130 NEXT J 

140 L$=HEX$(L+1,L+1) 

170 PRINT :PRINT "BIN.";B$;"=";" HEX.";H$;L$ 

180 ? :? "DESEA CONTINUAR? S/N" 

190 IF PEEK(764)=62 THEN POKE 764,255:H=0:L=0:G0T0 30 
200 IF PEEK(764)=35 THEN POKE 764,255:END 
210 GOTO 190 
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0 REM HEXXBIN.BEC 

1 REM ************************************ 

2 REM * * 

3 REM **CONVERSION BINARIO-HEXADECIMAL* 

4 REM * * 

5 REM ********************************* 

10 DIM HEX$(2),H$(1),L$(1),B(7) 

20 FOR J=0 TO 7:B(J)=D:NEXT J 

30 PRINT CHR$(125):PRINT "INTRODUZCA UN NUMERO HEXADECIMAL" 
40 PRINT :PRINT "CON 2 DIGITOS PULSANDO A CONTINUACION 
<RETURN>" 

50 INPUT HEX$ 

60 H$=HEX$(1,1):L$=HEX$(2,2) 

70 IF H$="A" THEN H=10sGOTO 150 
80 IF H$="B" TH^N H=11:G0T0 150 
90 IF H$="C" THEN H=12sG0T0 150 
100 IF H$="D" THEN H=13:G0T0 150 
110 IF H$="E" THEN H=14:G0T0 150 
120 IF H$="F" THEN H=15sG0T0 150 
130 H=VAL(H$) 

150 IF L$="A" THEN L=10:GOTO 220 
160 IF L$="B" THEN L=11 sGOTO 220 
170 IF L$="C" THEN L=12:G0T0 220 
180 IF L$="D" THEN L=13:G0T0 220 
190 IF L$="E" THEN L=13:G0T0 220 
200 IF L$="F" THEN L=15:G0T0 220 
210 L=VAL(L$) 

220 IF H>7 THEN H=H-8:B(7)=1 

230 IF H>3 THEN H=H-4sB(6)=1 

240 IF H>1 THEN H=H-2:B(5)=1 

250 B(4)=H 

260 IF L>7 THEN L=L-8:B(3)=1 

270 IF L>3 THEN L=L-4:B(2)=1 

280 IF L>1 THEN . l-2:B(1)=1 

290 B(0)=L 

300 PRINT SPRINT "HEX.";HEX$;"=";" 
BIN.";B(7);B(6);B(5);B(4);B(3);B(2);B(1);B(0) 

310 PRINT SPRINT "DESEA CONTINUAR S/N" 

320 IF PEEK(764)=62 THEN POKE 764,255sG0T0 20 
330 IF PEEK(764)=35 THEN POKE 764,255-END 
340 GOTO 320 

TambI6n sobran exp 11cacIones de+alladas sobre el paso de 
nQmeros hexadecfinales a blnarloss 
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0 REM UMWAND.BEC 

1 REM ****************************** 

2 REM * * 

3 REM *MENU DE CONVERSION NUMERICA * 

4 REM * * 

5 REM ****************************** 

10 DIM HEX$(16),H$(1),L$(1>,B$(8),B<7),A(8) 
20 HEX$="0123456789ABCDEF" 

100 PRINT CHR$(125):POKE 82,0:P0KE 752,1 
110 ? :? " TRANSFORMACION DE NUMEROS " 


120 

7 

• 

II_ 

-- 


_it 


130 

7 

• 

. 7 
• » 

il 

DECIMAL A BINARIO 

<1>" 


140 

7 

• 

. 7 
• • 

II 

DECIMAL A HEXADECIMAL 

<2>" 


150 

7 

• 

• 7 

• • 

: ? 

:? " BINARIO A DECIMAL 


<3>» 

160 

7 

• 

. 7 
• • 

II 

BINARIO A HEXADECIMAL 

<4>" 


170 

7 

• 

- 7 
• • 

• 7 

• • 

:? " HEXADECIMAL A DECIMAL 

<5>" 

180 

7 

• 

• 7 

• • 

II 

HEXADECIMAL A BINARIO 

<6>" 



200 OPEN# 1,4,0,"K:":GET# 1,T:CL0SE# 1 
210 IF T<49 THEN 200 
220 IF T>54 THEN 200 
230 GOTO (T-48)*1000 

1000 REM IN1C 10 PORGRAMA DECIMAL A BINAR10:DEZ IN BIN 
2000 REM IN 1C 10 PROGRAMA DECIMAL A HEXADECIMAL:DEZ IN HEX 

3000 REM IN 1C 10 PROGRAMA BINARIO A DECINAL:BIN IN DEZ 

4000 REM IN 1C 10 PROGRAMA BINARIO A HEXADECIMAL:BIN IN HEX 

5000 REM IN 1C 10 PROGRAMA HEXADECIMAL A DEC IMAL:HEX IN DEZ 

6000 REM I NIC 10 PROGRAMA HEXADECIMAL A BINARIO:HEX IN BIN 

SI lo desea, Ud. puede resumIr estos sels pequenos programas 
en un completo programa auxllfar (utility). En la pantalla 
puede aparecer un menG que le permlta decldlr entre las sels 
poslblIIdades de transformacl6n. Pulsando la correspond Iente 
tecla numSrlca, el programa salta a la parte que se encarga 
de la opera*c!6n deseada. El programa UMWAND.BEC muestra la 
estructura adecuada. Solo tendri que anadlr los programas 
precedentes comenzando respectlvamente en las Ifneas 1000 a 
6000. AdemSs serTa convenlente tomar precauclones contra 
poslbles errores de entrada del usuarlo (TRAP, TRAP, TRAP): 
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200: Se abre un canal de lec+ura hacl a el tec I ado 

(K=keyboard), se determlna el valor ATASCII de la+ecla 
pulsada en la variable T y se vuelve a cerrar el canal de 
datos. 

210 a 220: Estas Ifneas comprueban si se ha pulsado una las 
tec I as "1" a "6" (Valores ATASCII 49 a 54K 

230: En caso aflrmatlvo, se determlna ahora el 

correspondlente destlno de salto. 
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DESFILE DE BITS 


Eh I os ordenadores cada uno de I os bit tunc Iona como tin 
Interruptor. Ocho de estos In+errup+ores se agrupan en una 
unldad de control (byte) y se representan en forma de valor 
decimal (byte de datos). Observando uno de estos valores, 
por ejemplo 191, es Imposlble reconocer nl slqulera con 
mucha practlca cuales son I os bits actlvados (1) y 
desactlvados (0). No exlste tampoco nlnguna Instrucclon 
BASIC que nos Informe dlrectamente sobre el estado de 
determlnados bits (aunque muchas Instrucclones en BASIC 
Influyan dlrectamente en cada bit por separado). 

Sin embargo, en muchas ocaslones es necesarlo consul tar un 
byte para determlnar el bit tlpo almacenado en el, o para 
comprobar el estado de un bit determlnado. El comando 
PEEK(n) s6lo encuentra un valor decimal. Con la Instrucclon 
PRINT PEEK(n) se emlte en pantalla el byte de datos que se 
en encuentra en la direcclon n; con B=PEEK(n) se puede 
conservar este valor en una variable. 

Para consegulr Informaclon sobre el bit tlpo de una poslclon 
de memorla s6lo queda la poslbllldad de desglosar el byte de 
datos en sus bits por separado. La manera de efectuar esta 
operaclon ya se ha Indlcado en el programa DEZXBIT.BEC. A 
contlnuaclon se vuelve a mostrar de forma resumlda: 
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0 REM BITBREAK.BEC 

1 REM ****************************** 

2 REM * DESMENUZANDO UN BYTE DE * 

3 REM * DATOS * 

5 REM ****************************** 

10 DIM B(7) 

20 X=INT(RND(0)*8) 

30 R=PEEK(53770):D=R 
40 FOR J=0 TO 7:B(J)=0:NEXT J 
50 IF D>127 THEN D=D-128:B(7J=1 
60 IF D>63 THEN D=D-64:B(6)=1 
70 IF D>31 THEN D=D-32:B(5)=1 
80 IF D>15 THEN D=D-16:B(4)=1 
90 IF D>7 THEN D=D-8:B(3)=1 
100 IF D>3 THEN D=D-2:B<2)=1 
110 IF D>1 THEN D=D-2:B(1)=1 
120 B(0)=D 

130 PRINT :PR I NT " EN EL BYTE DE DATOS M ;R;" EL BIT# 
";X; H =";B(X) 

140 GOTO 20 


20: La casualIdad determlna cuSI d© los ocho bits (de 0 a 

7) sera InvestIgado por el programa. 

30: Con ayuda de R, el byte de datos tamblSn adqulere un 

valor aleatorlo comprendldo entre 0 y 255* En su lugar 
tamblSn podrTa escrlblrse R=INT(RND(0)*256)• 

40 a 120: Se descompone el byte de datos en sus componentes 
bit. 
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Esta rutina de programa ocupa relatlvamente mucha memorla. 
Si solo se desea determlnar el estado de un bit aislado, se 
puede resumlr la pregun+a en una formula mas reducida, 
aunque esta no sera procesada con mayor rapldez. Para poder 
entender esta formula, hay que aclarar la re lac ion entre I os 
valores de los dlversos bits. El valor del bit n+1 es justo 
el doble que el del bit n. Si se divide el valor de 
cualquier bit superior por el valor de cualquler bit 
inferior, el resultado siempre sera un ndmero par. 

Ejemplo: Sea el byte de datos 128 

Ndmero debit 6 5 4 3 2 1 0 
Valor W 64 32 16 8 4 2 1 
Coclente (128/W) 2 4 8 16 32 64 128 

Si al divldir un byte de datos por el valor de un bit y el 
resultado es un ndmero par, el bit en cuestion no estS 
activado (0); si el resultado es un ndmero Impar, entonces 
el bit esta activado. 


Ejemplo: Sea el byte 

Ndmero de bit 
Valor 

Coclente lNT 
Estado del bit 


de datos 133 

7 6 5 4 

128 64 32 16 

12 4 8 

10 0 0 


3 2 10 

8 4 2 1 

16 33 66 133 

0 10 1 


Tamblen de esta forma se puede comprobar, que en el byte de 
datos 133 se encuentra el bit tipo 10000101. Seguramente se 
habrd dado cuenta de que a I divldir un byte de datos por el 
valor de un bit no siempre resulta un ndmero entero. 
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La formula que slrve para comprobar si un determlnado bit ha 
sldo actlvado deberl pues reallzar los slgulentes pasos: 

1: hallar el valor del bit numero X (= 2 elevado a X), 

2: dlvldlr el byte de datos R por este valor, 

3: conslderar solo la parte entera del coclente = INT(R/2 

elevado a X), 

4: comprobar si este valor es par o Impar. 

Un numero es par si es divisible por 2, o sea, si el 
coclente es un ntimero entero. SI se divide un ndmero por dos 
e INT(n/2)=n/2, entonces n es un numero par. SI INT(n/2) es 
dlferente de n/2, entonces n es Impar. Flnalmente, la 
f6rmula complete serfa: 

0 REM F0RMUL01.BEC 

10 REM INK I NT(R/2~X)/2)<>I NT(R/2~X)/2 

IF se cumple esta condic!6n, THEN bit X=1 (esta actlvado)* 

A contlnuaci6n se muestra un pequeno programa que aprovecha 
la formula antes hallada: 


0 REM BITPEEK.BEC 

1 REM ***************************** 

2 REM * * 

3 REM * DETERM INACI ON DE UN BIT * 

4 REM * * 

5 REM ***************************** 

10 B=0 

20 X=I NT(RND(0)*8) 

30 R=PEEK(53770) 

40 IF I NT(I NT(R/2~X)/2)<>I NT(R/2~X)/2 THEN B=1 
50 ? :? "BYTE-DATOS ";R;"ES BIT# ";X;" = ";B 
60 GOTO 10 
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20 y 30: Estas Ifneas generan valores aleatorlos para la 
posIclSn X del bit y para el byte de datos R. 

40: La extraordlnarla f6rmula entra en accI6n* 

50: Se emlte el resultado. 
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Naturalmente se podrfa colocar un bucle FOR-NEXT en las 
Ifneas 40 y 50, que repasarfa los ocho ntfmeros de bits (de 0 
a 7). En este caso habrfa que dar a B la DIMensIon 8 (DIM 
B<7)). Aun asf, el programa serTa conslderablemen+e mcis 
corto que el BITBREAK.BEC, ocupando por lo tanto menos 
memorla. Sin embargo, su ejecucldn serfa bastante mSs lenta, 
con lo cual esta f6rmula s6lo adqulere Interns cuando se 
comprueba el estado de un bit por separado. 

Para trabajar con el BASIC del ATARI no hace falta saber 
calcular con ndmeros blnarfos. Los PEEKs y POKEs se reallzan 
con valores dec!males. SI se desea modifI car el valor en una 
d!recc!6n, hay que determiner el valor actual de la celda n 
con PEEK(n), camblarlo sumando o restSndole un valor decimal 
y volver a colocar el nuevo valor en la posic!6n de memoria 
n. Resumlendo: POKE n,PEEK(n+/-m)• SI n-m es menor que cero 
o n+m es mayor que 255, entonces se emlte el mensaje de 
error ERROR- 3 (fuera del campo num^rlco). 


Para finalIzar, un detalle de utilldad. En algunas ocaslones 
se requiere la convers!6n de un bit tlpo, o sea, escrlblr un 
0 a IIT donde exista un 1 y a I rev6s. Este proceso se 
denomlna InvertIr. Se utlllza frecuentemente en apI leadones 
grafleas. 


Bit tlpo Iniclal 
(valor decimal) 

+ bit tlpo Invertldo 
(valor decimal) 


(valor decimal) 


sumas 


10 0 10 110 
0 1 10 10 0 1 
11111111 


150 

105 

255 
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El proceso Inverso funclona por lo tanto: 

A 

Los ocho bits actlvados 11111111= 255 

(valor decimaI) 

- bit tlpo 10 0 10 1 1 0 = 150 

(valor decimaI) 

= bit tlpo Inverso 0 1 1 0 1 0 0 1 = 105 

(valor decimaI) 

Para Invertlr un bit tlpo solo hay que restar su valor 
decimal de 255 y con ello se obtiene el valor decimal del 
bit tlpo Inverso, POKE n,255-PEEK(n) invlerte el bit tlpo en 
la dlrecclon n. 
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A TRABAJAR CON ROM Y RAM 


La constItucIon del mlcroprocesador determIna el nGmero de 
poslclones de memorla que pueden administrate. El corazon 
del ATARI es un 6502, que puede acceder a 65536 celdas. Para 
representar valores de 0 a 65536 se necesltan ocho bits = 
dos bytes. Cada 256 bytes se agrupan en una paglna (page). 
El byte con valor superior (HI) Indlca la paglna de memorla, 
lo que slgnlflca que pueden administrate 256 paglnas. El 
byte con valor Inferior (LO) Indlca lapos!cl6n de memorla 
en la paglna. De esta manera pueden claslflcarse 
256*256=65536 celdas de memorla con un nGmero llamado 
dlrecclon. 

Para registrar una determlnada dlrecclon se necesltan pues 
dos bytes, que slempre se escrlben en el orden LO, HI. La 
dlreccl6n buscada resultara entonces de la formula LO + 
HI*256. Por ejemplo, si en I as dlrecclones 88 y 89 se ha 
almacenado un puntero (vector) hacla cualquler dlrecclon, la 
slgulente lnstruccI6n encontrara la dlrecclon buscada; 

DIRECCION = PEEK(88)+PEEK(89)*2 56 


AdemSs de I os vectores de dos bytes tambl6n exlsten punteros 
que s6lo ocupan un byte, pudlendo sefialar pues solamente el 
prlnclplo de una paglna. En este caso la dlreccl6n buscada 
se hallarfa haclendo: 

DIRECCION = PEEK(106)*256 

4 pSglnas de 256 bytes cada una, o sea 1024 bytes, se 
deslgnan con el nombre de kbyte (kilobyte). En este caso, la 
unldad de medlda kilo se utlllza modlflcando llgeramente su 
dimension normal. En algunos casos hay que tener en cuenta 
ademSs los Ifmltes de 4 k. SI se accede a la memorla en 
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forma hexadecimal, o sea de $0000 a $FFFF, entonces la mayor 
clfra de este numero hexadecimal cuenta slempre 4 kbyte* 

El ordenador dispone de una memorla de 64 kbytes en total 
(que son 65536 bytes)* Sin embargo, el usuarlo no dispone de 
la totalIdad de esta RAM* Se necesltan aproxlmadamente la 
mltad de todas las dtrecclones para el funcionamlento del 
ordenador y de los dlversos perlf^rlcos, asT como para 
almacenar determlnados datos que slempre tlenen que estar 
dlsponlbles* 

Estos datos estan parclalmente and ados en la estructura de 
la memorla, de manera que se conserven Incluso a I cortar el 
sumlnlstro electrlco. Naturalmente el usuarlo no puede 
modiflcar estos contenldos de memorla. Esta parte de la 
memorla se llama ROM (read only memory = memorla de 
lectura)• 

La poslclones de memorla que pueden tomar valores variables 
se deslgnan con el nombre de RAM (random access memory = 
memorla con acceso a I azar o memorla de Iectura/escrltura)• 
El slstema utlllza un gran nCimero de estas dlrecclones RAM 
para memorlzar valores variables como, por ejemplo, punteros 
determlnados* Muchos de estos reglstros pueden ser 
manlpulados por el usuarlo, lntroduclendo determlnados 
valores con ayuda de POKE* Sin embargo, el slstema renueva 
algunos de ellos tan rapldamente, que esta IntervenclSn con 
el POKE del BASIC no tlene nlngtin efecto* 

En algunos reglstros cada bit tlene una funcI6n determlnada, 
mlentras que en otros, clertas tareas pueden ser reallzadas 
por agrupaclones de varlos bits. No slempre se aprovechan 
los ocho bits dlsponlbles en una cel da de memorla* 

Al conectar el ATARI (800/XL), el usuarlo dispone para sus 
programas y datos de unos 37 kbyte, 148 pSglnas o mejor 
dlcho de 37902 bytes* SI se conecta una uni dad de diskettes, 
estos valores se reducen a unos 31,5 kbytes, 126 piglnas o 
32274 bytes, puesto que el DOS tamblSn ocupa una parte de la 
memorla* El comando en lenguaje BASIC PRINT FRE(0) da 
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Informacl6n sobre la memorta dtspontble. 
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ESQUEMA DE EMPLAZAMIENTO 


d=$-direcct6n 

0 = $0000 
0 = $0000 
128 = $0080 
256 = $0100 
512 = $0200 

768 = $0300 

1024 = $0400 
1152 = $0480 
1536 = $0600 

1792 = $0700 
2048 = $0800 
11008 = $2B00 
32768 = $8000 


Funclon 


DIreccion Inferior (bottom of memory) 

OS pSglna cero RAM 
BASIC paglna cero RAM 
6502 stack 

Puntero Interrupcl6n, paddles, reglstros 
de color, etc. 

<■ . 

ParSme+ros uni dad de disco, I0CB 0-7, 
buffer de Impresora 

buffer del cassette 

OS-RAM 

llbre para rutlnas cortas en lenguaje 
maqulna 

BOOT-RAM para apllcaclones o DOS, si cargado 

RAM o DOS sI esta cargado 

RAM (el final de DOS fluye) 

RAM o modulo ROM derecho (t) 

List Display, memorla de pantalla, la 
dlrecclon de Inlclo depende del modo graflco 
elegldo. Dlrecclon final Incluyendo ventana 
de texto slempre es 40959 = $9FFF 
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40960 = $A000 RAM o m6dulo ROM Izq. (*) / ROM BASIC (XL) 


49152 = $C000 ROM dlsponible (*), OS-ROM (XL) 

53248 = $D000 CTIA (US), GTIA (D) 

53504 = $D100 llbre para ocupaclones posterlores 
53760 = $0200 POKEY 

54016 = SD300 PIA 

54272 = $0400 ANTIC 

54528 = SD500 Control de m6dulo Interfase 

54784 = $D600 Libre para ocupaclones poster lores 

55296 = $0800 Chips 1/0, floating-point ROM 

57344 = $E000 juego de caracteres estandar ROM 

aquf comlenza el 0S-R0M, el sisterna opera¬ 
tive. LLega hasta 65535 = $FFFF 

58368 = $E400 Editor 

58384 = $E410 Vectores de pantalla (screen) 

58400 = $E420 Vectores de tec I ado (keyboard) 

58416 = $E430 Vectores de Impresora (printer) 

58432 = $E440 Vectores de cassette de programas (cassette) 

58448 = $E450 Dlrecclones de salto (vectores JMP) 

58496 = $E480 Vectores RAM para powerup 
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58534 = 

SE483 

CIO 

59093 = 

SE605 

Motor Interrupclon 

59716 = 

$EC00 

$10 

60906 = 

SEDEC 

Motor uni dad de disco 

61048 = 

SEE78 

Motor Impresora 

61249 = 

$EF41 

Motor cassette 

61667 = 

$F0E3 

Rutlna monitor 

62436 = 

SF3E4 

Motor pantalla y tec 1 ado 

65535 = 

$FFFF 

Dlreccion maxima (top of memory) 
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MAPA DE MEMORIA 


0,1 $0,$1 LINZBS 

Utlllzada por la rutlna reset a I comprobar la memorla. Es 

* 

renovada por la RAM del monitor y almacena posiblemente el 
timer del VBLANK. 

2,3 $2,$3 CAS INI 

Vector para Inlclallzar el boot del cassette. SI este 
proceso da resultado se produce un salto (JSR) hacla la 
dlrecclon indlcada. Los bytes qulnto (L0) y sexto (HI) de un 
flchero de cassette contlenen la dlrecclon de 
InlclalIzaclon. 


4,5 $4,$5 RAMLO 

Vector RAM para comprobar el tamano de memorla en el 
powerup. Tambl6n se utlllza para la dlrecc!6n de boot de la 
unldad de disco (1798 = $706). 


6 $6 TRAMSZ 

Reglstro Intermedlo para comprobar el tamafio de memorla. Es 
utlllzado durante el powerup y despufis transflere su valor 
a I RAMTOP (106 = $6A). SI en el conector para cartuchos 
(XL), o sea el conector Izqulerdo, se encuentra un m6dulo de 
expansion, por ejemplo BASIC, (*), se leerS un 1. 
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7 


$7 


TSTDAT 


Registro de datos para comprobar la RAM. Toma el valor de la 
postc!6n que se esta comprobando. S! se lee un 1 slgnlflca 
que en el conector derecho se encuen+ra un cartucho (?*)• 


8 $8 WARMST 

IdentifIcaclon de arranque en callente (flag). En este lugar 
el powerup Inlclallza un 0. Este valor se manttene hasta que 
sea modfflcado medlante un POKE o hasta pulsar RESET. Este 
ultimo coloca aquf un 255 (todos I os bits actlvados). 


9 $9 BOOT? 

Un boot satlsfactorlo de la unldad de disco coloca en este 
lugar un 1 (bit 0 actlvado), y un boot de cassette un 2 (bit 
1 actlvado). BOOT? contlene un 0 cuando en nlnguno de ambos 
perlf6r!cos se haya efectuado un boot. Indlca si con RESET 
se utillza el vector del cassette (CASINI 2,3 = $2,$3) o el 
del DOS (DOSVEC 10,11 = $A,$B). El arranque en frfo Intenta 
ambos booting y actlva entonces el bit correspondlente. 

SI en BOOT? se coloca un 255 (todos I os bits actlvados) se 
suspende el si sterna a I pulsar RESET. Esto slgnlflca que 
despu6s de efectuar el boot se puede bloquear la tec I a RESET 
(protecclon de software). 


10,11 $A,$B DOSVEC 

Vector de Inlclo para software de diskette. En BASIC el 
comando en DOS provoca un salto hacla esta dlrecc!6n. El 
puntero puede camblarse, pero sera renovado con RESET. Para 
evltarlo deben modlflcarse las dlrecclones 5446 (L0) y 5450 
(HI) = $1546,$154A, que habltuaImente serial an hacla DOSVEC. 
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El slgulen+e programa le mostrara la forma de sus+l+ufr el 
comando DOS con ayuda de DOSVEC: 


1 REM *************************************** 

2 REM * * 

3 REM *EL DOS A TRAVES DE PULSACION DE TECLA* 

4 REM * * 

5 REM *************************************** 
10 REM PROGRAMA 

20 REM PROGRAMA 

30 REM PROGRAMA 

40 REM PROGRAMA 

50 REM PROGRAMA 

60 IF PEEK(764)=225 THEN 10 

70 OPEN# 1,4,0,"K:":GET# 1,D:CLOSE# 1 

80 IF D=68 THEN 100 

90 GOTO 10 

100 LET DOS=USR(PEEK(10)+PEEK(11)*256) 
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10 a 50: slmbollzan cualquler programa. 




60: Esta Ifnea comprueba s! se ha pulsado una tec I a del 
keyboard. 

70: En caso aflrmativo, se aslgnarS a la variable D el 
valor ATASCII de la tec I a pulsada a trav6s de un canal de 
datos hacla el tec I ado. 

80: SI el valor de D es 68, slgnfflca que se ha pulsado la 
tec I a "D" y el programa se blfurca hacla 100. 

90: Salto que retrocede a la ITnea 10 en caso de no ha liar 
la tec I a "D". 

100: ATARI incluso funciona si se ultllza una palabra BASIC 
(en este caso DOS) como variable. S6lo hay que Indicarlo 
expresamente con LET. 

El comando USR salta hacla una rutlna en lenguaje mSqulna 
que comlenza por la celda de memorla Indlcada detrSs de USR. 
SI ahora se utlliza DOSVEC como dlreccl6n InIclaI, entonces 
USR salta hacla el DOS. El comando USR debe aslgnarse a una 
variable (en este caso DOS) que no tenga nlnguna otra 
funcl6n. 


12,13 $C,$D DOS INI 

Vector de iniclaIlzacl6n para el boot de la uni dad de disco. 
Toma la direccl6n donde comlenza el programa de apllcaclones 
despu6s de cargar el DOS. Con un JSR Indirecto hacla esta 
direcclon puede InIclaIIzarse el software de apllcaclones. 
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14,15 


$E,$F 


APPMHI 


Vector en la prlmera poslclon de memoria llbre en la RAM de 
apI lead ones. Indlca el ITmlte de la memoria ocupada por un 
programa en BASIC. La memoria de pan+alla y el display list 
pueden extenderse desde la dlrecc!6n senalada por este 
vector hasta RAMTOP (40959 = $9FFF). 


16 $ 10 POKMSK 

Mascara de 1nterrupcl6n para POKEY. Reglstro de sombra de 
IRQEN (53774 = $D20E). Cada uno de los ocho bits se reflere 
a una poslble interrupcion. Al no activar un bit se 
Imposlblllta la correspondlente lnterrupc!6n: 


Bit 7 

(128) 

Tecla BREAK 

Bit 6 

(64) 

Otra tecla 

Bit 5 

(32) 

Datos de Input en serie preparados 

Bit 4 

(16) 

Datos de output en serie requeridos 

Bit 3 

(8) 

Sal Ida en serie finalizada 

Bit 2 

(4) 

Timer de POKEY 4 

Bit 1 

(2) 

Timer de POKEY 2 

Bit 0 

(1) 

Timer de POKEY 1 


jCon esto se pueden mantener alejados los usuarlos curlosos! 
Aquf y en IRQEN (53774 = $D20E) hay que colocar valores con 
POKE. Cualquler valor Inferior a 128 bloquea la tecla BREAK. 
Aunque con 127 se detenga el programa a I pulsar BREAK, a la 
vez se suspende el si sterna. Entonces RESET serS la tfnlca 
solucI6n. Pero ya se expllc6 en BOOT? la manera de proteger 
la tecla RESET contra cualquler uso Indebldo. Haga algunas 
pruebas con valores dlferentes. 


Sin embargo, cualquler comando dirlgldo 
(screen "S:" o editor "E:") col oca un 
llberando asf la lnterrupcI6n para BREAK, 
comando PRINT, GRAPHICS u OPEN ("S: M o "E:") 


a I a panta I I a 
1 en el bit 7, 
Despu6s de cada 
hay que 
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bloquear de nuevo la feel a BREAK. La major manera de hacerlo 
es a +rav6s de es+a corta subrutlna: 


0 REM ADR168BRK.BEC 

1 REM ■•h*********'******************** 

2 REM * * 

3 REM * SUBRUT INA BREAK-BLOCAJE * 

4 REM * * 

5 REM **********■*■***************'*'*'** 
10 GOSUB 5000 

5000 BRK=PEEK(16) 

5010 IF BRK>127 THEN BRK=BRK-128 
5020 POKE 16,BRK 
5030 POKE 53774,BRK 
5040 RETURN 


Las ROM de las mSs reclen+es OS verslones "B" tlenen un 
vector aparte para la 1n+errupc?6n BREAK. Referen+e a ello 
vea BRKKEY (566,567 = $236,$237). 
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17 


$11 


BRKKEY 


Flc^g de la tec I a BREAK * En esta pos!cl6n aparece un 0 si se 
pulsa BREAK. Cualquler o+ro valor Indlca que BREAK no esta 
slendo pulsado. 


18,19,20 $12,$13,$14 RTCLOK 

Este es el reloj In+erno del ATARI. Funclona en relacfon con 
la frecuencla del sumlnlstro el6ctr!co. MIentras que la 
frecuencla de I os aparatos norteamerIcanos es de 60 hertz, 

I os de aquf trabajan con 50 hertz. AI trabajar con software 
procedente de los EE.UU. que lea el reloj Interno, se deben 
camblar los va lores con el factor 5/6 para adaptarlo a 
nuestro rltmo de trabajo mSs tranqullo. 


AI conectar el ordenador, el reloj Interno empleza a contar 
desde cero. El reglstro 20 cuenta a I compSs de 50 hertz de 0 
a 255, o sea en un segundo de 0 a 49. Al Ilegar al valor 
255, el reglstro 20 Incrementa en 1 el valor del reglstro 19 
y vuelve a empezar por 0. Cuando el reglstro 19 pase de 255 
a 0, aumenta por su parte el valor del reglstro 18 en 1. 


De esta manera, estos tres reglstros juntos pueden contar 
hasta 16.777.215. El reglstro 20 tarda unos 335.544,32 
segundos en camblar de valor, o sea 5.592 mlnutos o unas 93 
horas, que son casl 4 dTas, o exactamente 3 dTas 21h 12m!n. 
24s y 32 d6clmas de segundo. A contlnuaclon se muestra un 
programa para el reloj digital marca ATARI: 
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0 REM ADR18.BEC 

1 REM ^**************************** 

2 REM * * 

3 REM *RELOJ INTERNO DE TIEMPO REAL* 

4 REM * * 

5 REM ^**************************** 

10 FOR J=0 TO 2:POKE 18+J,0:NEXT J 
20 PRINT CHR$(125):POKE 752,1 

30 T=I NT(PEEK(18)*65536+PEEK(19)*256+PEEK(20))/(50) 
40 D=INT(T/86400) 

50 HH=INT(T/3600):H=HH-D*24 
60 MM=INT(T/60):M=MM-D*1440-H*60 
70 S=T-D*86400-H*3600-M*60 
80 POSITION 10,11 

90 PRINT D;" d : M ;H; M h : "; M;" : ";S;CHR$(34) 

100 GOTO 30 


10: AI Inlclar el programa el reloj debe ponerse en primer 
lugar a 0, puesto que esta contando desde el momen+o en que 
se conecta el ordenador. 

20: Limpla la pan+alla y suprlme el cursor, 

30: Calcula el actual valor numSrlco de I os reglstros 18 a 
20, lo divide por 50 (hertz = vIbraclones/segundo) y 
determ Ina la parte entera del coclente en T. 

40: Averlgua a cuSntos dfas corresponde el valor de T y 
aslgna el resultado a la variable D. 

50: De Igual manera determ!na la cant!dad de mlnutos 
enteros de T, y HH recoge el resultado. AI restar de HH las 
horas de los dfas antes hallados (= D*24), s6lo quedan las 
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horas en curso, valor que se aslgna a H. 

60: De manera anSloga se caleu I an tamblSn I os mlnutos en 

curso, 

70: Los segundos en curso S resultan de restar a la suma 

total de segundos T I os equlvalentes en segundos de D, H y 
M. 

80 y 90: El resultado se muestra en la pantalla con PRINT y 
con 

100: se vuelve a ejecutar el programa. 


En vez de calcular dfas, horas, mlnutos y segundos y esperar 
a que los reglstros se llenen y camblen de valor, tambl£n se 
puede hacer que este reloj s6lo cuente 24 horas, volver a 
graduar entonces RTCL0K a 0 y contar con ello un dTa en una 
variable, De esta forma el reloj puede contar 
IndefInldamente, Se llega a las 24 horas cuando RTCL0K tlene 
el valor 24*60*60*50 = 4.320.000 = 65*65536 + 235*256 + 0. 
La InstruccISn sera pues: 

IF PEEK(20)=65 THEN IF PEEK(19)=235 THEN IF PEEK(18)=0 THEN 
POKE 18,0:POKE 19,0: 

NaturaImente, un programa que lee el reloj fnterno tambl£n 

requfere clerto tlempo de ejecuclon, durante el cual el 

reloj interno no para de contar. Pero para reallzar un 

programa tan corto, Incluso el BASIC es lo sufIclentemente 

rap I do como para mostrar cada segundo en la pantalla, aunque 
% 

los reglstros 18 a 20 solo seran lefdos cuando el programa 
procesa la Ifnea 30. 

ReaImente un segundo es un tlempo muy largo para el ATARI, 
que en este perTodo reallza unos 40.000 clclos de mSquIna. 
AsT, mlentras que el reglstro 20 cuente 1 mis, determlnando 
con ello 1/50 segundos, el ordenador ha efectuado unos 8.000 
tlempos. Incluso si utlllza este reloj digital para formar 
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parte de un porgrama largo, este tendra que ser o muy 
extenso o con+ener caleu I os muy complejos (fund ones 
angulares, raTces, po+enclas, etc.) para que los segundos se 
emltan en pantalla en pasos dobles. 

No es absolutamen+e necesarlo transformar el reloj Inferno 
en tlempo real. Usted puede consul tar por ejemplo s6lo el 
registro 19, que cuenta aproxlmadamente dec!mas de segundo, 
y convertlr el valor encon+rado en una barra graflca que 
aumente o dlsmlnuya lentamente. Tamblen puede fljar un valor 
que una vez alcanzado efec+Ge una orden determ!nada. 

IF PEEK(18)*65536+PEEK(19)*256+PEEK(20) THEN IF 
PEEK(18)*65536+PEEK(19)*256+PEEK(20)=X THEN ... 


21,22 $15,$16 BUFADR 

Puntero momentaneo del SIO en operaclones de diskette. 
Reglstro para la Indlrecta direcclon del buffer. 


23 $17 ICCOMT 

Comando vector para CIO. Se utlllza para encontrar el offset 
en la tab I a de comandos. 


24,25 $18,$19 DSKFMS 

Vector para el FMS. 

26,27 $ 1A,$ 1B DSKUTL 

Vector para DUP. 
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28 


$1C 


PTIMOT 


DesconexI6n por Ifml+e de tiempo de la impresora (timeout). 


29 SID PBPNT 

Puntero del buffer de Impresora. Sena I a hacla la poslclon 
actual (byte) en el buffer de impresora. Valores desde 0 
hasta valores resultantes de PBUFSZ. 


30 $ 1E PBUFSZ 

Tamano del buffer de Impresora en el modo en cuestl6n. El 
tamafio del buffer normal es de 40 bytes. 


31 $1F PTEMP 

Utllizado por el motor de la Impresora para memorlzar 
provlslonalmente el valor del caracter que debera ser 
envlado a la Impresora. 


32 $20 ICHIDZ 

NGmero Tndlce del motor, que el OS colocarS en la tabla de 
I os nombres de flcheros para Indicar un fichero abierto. SI 
no hay nlngtin fichero abierto, aquf aparece un 255. 


33 $21 ICDNOZ 

Indlca el ntimero max Imo de unidades de diskettes. Es 
inicla Iizado en 1• 
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34 


$22 


ICCOMZ 


Un byte de Ins+ruccion que debe ser fljado por el usuarlo. 
DetermIna la manera de formatear I os IOCB restantes y qu£ 
proceso I/O debera ser ejecutado. 


35 $23 ICSTAZ 

Byte de estado referente a I Oltlmo perlf6rlco tratado. 


36,37 $24,$25 ICBALZ/HZ 

DIrecclon de buffer para la transmlslon de datos o dlrecclon 
del nombre de flchero para comandos como STATUS, OPEN, etc. 


38,39 $26,$27 ICPTLZ/HZ 

Dlrecclon de la rutlna put-byte. Una Instrucclon CLOSE sltda 
este puntero hacla "IOCB not OPEN" del CIO. 

40,41 $28,$29 ICBLLZ/HZ 

Contador para la longltud del buffer en PUT y GET. Se reduce 
en 1 por cada byte transmitI do. 


42 $2A ICAX1Z 

Primer byte de la informaclon auxlllar que se utlllza con 
OPEN para concretar la forma del acceso necesarlo a datos. 


43 $2B ICAX2Z 

Segundo bit de las Informaclones auxlllares, variables de 
trabajo CIO. 
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44,45 


$2C,$2D 


ICAX3Z/4Z 


Se utlllza ©n BASIC en las Ins+rucclones NOTE y POINT para 
transfer Ir I os nGmeros de sector. 


46 $2E ICAX5Z 

Determlna el byte del sector fljado por ICAX3Z/4Z a I cual 
debe accederse. 


47 $2F ICAX6Z 

Byte libre. Se utlllza como almac6n provisional para el byte 
de caracter en una operaclon PUT que se estS ejecutando. 


48 $30 STATUS 

Memorla Interna de estado. Las rutlnas SIO utlllzan este 
byte para colocar el estado de la operaclSn SIO que se estS 
ejecutando. 


49 $31 CHKSUM 

Suma de comprobac!6n, utlllzada por SIO. 


50,51 


$32,$33 BUFRLO/HI 


Puntero hacl a el buffer de datos. Serial a hacl a el byte que 
debe ser emltldo o reclbldo. 
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$34,$35 


BFENLO/HI 


$ 53 


Pun+ero hacla el slgulente byte detras del final del buffer 
de datos. 


54 $36 CRETRY 

NGmero de repetI clones de una Instrucclon reallzadas por un 
dlsposltlvo despu£s de un intento fall Ido, como por ejemplo, 
a I formatear el diskette o a I escrlblr en un sector. El 
valor default es 13. 

55 $37 DRETRY 

NQmero de repetlclones al dlrlglrse a un dlsposltlvo (por 

ejemplo, unldad de disco). El valor default es 1. 


56 $38 BUFRFL 

IdentlfIcaclon del buffer de datos. 255 slgnlflca que estl 
Ileno. 


57 $39 RECVDN 

IdentlfIcaclon de la recepcl6n de datos. 255 slgnlflca que 
se ha reallzado. 


58 $3A XMTDON 

Identlf Icaclon de la transference de datos. 255 slgnlflca 
que se ha reallzado. 
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59 $3B CHKSNT 

I dent!fIcaci6n de las sumas de comprobac!6n. 255 slgnlflca 
em111 do. 

60 $3C NOCKSM 

No I dentifIcacI6n de sumas de comprobac!6n. 0 slgnlflca, que 
a la transferencla de datos le sucede una suma de 
comprobacion; cualquier o+ro valor Indlca que no slgue 
ninguna suma de comprobaci6n. 

61 $3D BPTR 

Puntero del buffer_del cassette, Indlca I os datos del 

reglstro que en este momento deben ser escrltos o lefdos. 

62 $3E FTYPE 

Determlna la dlstancla entre los bloques de datos. 

63 $3F FEOF 

I dentlficaclon del motor de cassette para EOF. 

64 $40 FREQ 

En este reglstro, el motor de cassette col oca la cantldad de 
beeps que deberS emltlr el altavoz del ordenador: una vez 
para la repeticl6n, dos veces para la toma. 

65 $41 SOUNDR 

I denti f Icacl6n para la sen al de sonjdo-aJ—trans fer lr dato s. 
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Un 0 colocado en este reglstro median+e POKE provoca que la 
transferencla sea sllenclosa, mien+ras que cualquler otro 
valor perml+e el feedback acGstlco. Puede utlllzarse, por 
ejemplo, para sllenclar la pls+a digital en las clntas con 
plstas sfncronas de voz y datos. 


66 $42 CRITIC 

Un valor dlferente de 0 provoca que una serle de procesos OS 
se suspendan. Esto puede ser necesarlo cuando se espera una 
frecuencla de Interrupclones alta. Un efecto secundarlo 
conslste en que la funclon repetltlva de feel as se 
In+errumpa, lo que Implde pulsar dos veces consecutlvas la 
mlsma tecla. Tambi6n se modlflca el sontdo del zumbador 
(CONTROL y 2). Sin embargo, es aconsejable no ac+Ivar CRITIC 
con un valor dlferente de 0* 


67-73 $43-$49 FMZSPG 

Reglstro de la pSglna cero del FMS. Slete bytes. 


74 $4A CKEY 

I dentIflcacl6n de lectura del boot del cassette en arranque 
en frfo. Co mprueba si se mantlene p ulsado START durante la 
c onex lon (arranque en frfo). En caso aflrmatlvo, se actlva 
CKEY. Con ello se poslblllta la accI6n automStlca del boot 
de cassettes. 


75 $4B CASSBT 

Identlf l^acT6n-para el boot del cassette. Durante el powerup 
el OS Intenta reallzar el boot en cassette y diskette aI 
mlsmo tlempo. De no haber sldo poslble un boot de cassette, 
aquf aparece un 0. Vea BOOT? (9 = $9). 
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76 


$4C 


DSTAT 


Reglstro para a I estado del I nd lead »r y del tec I ado. E~ 
u+illzado por el motor del Indlcador. AquT tamblen se 
Indlca, por ejemplo, una poslcI6n err6nea del cursor, la 
falta de memoria para representar un modo grSflco o el 
estado de Interrupclon medlante BREAK. 


77 $4D ATRACT 

Cuando una Imagen permanece demaslado tlempo en pantalla, 
puede quemar la capa fosforescente del tubo del televisor. 
Parece que Ios fabrlcantes de ATARI ya estSn acostumbrados a 
los frecuentes desculdos por parte de sus cllentes, puesto 
que han Implementado el modo attract. Cuando pasa clerto 
perfodo de tlempo sin que se efectue nlnguna entrada a 
traves del tec I ado, este modo varTa en Interval os cortos los 
valores de los reglstros de color y reduce la clari dad 
general de la pantalla. 


Esta dlsposlclon solo tlene el Inconvenlente de s^r molesta. 
Otros ordenadores persona Ies funclonan sin este tlpo de 
protector de pantalla, y no por ello se ha sabldo del 
quemado de numerosos tubos de pantalla. El modo attract es 
especla Imente molesto porque no se Interrumpe con otro tlpo 
de entradas como, por ejemplo, el joystick. 

ATRACT actua como ldent I ftcacl6n y timer para el modo 
attract. El IRQ actlva el reglstro a 0 cada vez que se pulsa 
una tecla del keyboard. Las teclas de func!6n SELECT, OPTION 
Y_START carecen aqut de efecto. Sin embargo, la pul sac Ion de 
una tecla que norma Imente no afecta a I programa escribe un 
0, aunque el programa que se est6 ejecutando nl tan slqulera 
consulte el tec I ado. 
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Indexado por el VBLANK. Cuando ATRACT supere el valor 127 el 
timer sobrepasa su prop I a capacldad (del bit 0 a 6) y actlva 
el flag (bit 7): el valor decimal del registro cambla a 254 
y se actlva el modo attract. 


El slguiente programa de demostraclon le muestra la forma de 
trabajar de este registro. AI mismo tiempo utiliza el reloj 
Interno para cronometrar el tiempo transcurrido hasta 
activarse ef modo attract: 
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0 REM ADR77.BEC 

1 REM ^^*********^*************** 

2 REM * * 

3 REM * TRATAM1ENT0 DE PANTALLA * 

4 REM * PRG-DEMO * 

5 REM * * 

6 REM ^**************************** 

10 DIM B(6) 

20 POKE 19,0:POKE 20,0 

30 ? CHR$( 125)-.POKE 752,1 

40 T=I NT((PEEK(19)*256+PEEK(20))/50) 

50 X=PEEK(77) 

60 IF X>127 THEN R=10:P0SITION 3,6:? "STOPPED" 

70 FOR J=0 TO 6:B(J)=0:NEXT J 
80 M=INT(T/60) 

90 S=T-M*6Q 
100 Y=X 

110 IF X>127 THEN X=X-128:B(6)=1 
120 IF X>63 THEN X=X-64:B(5)=1 
130 IF X>31 THEN X=X-32:B(4)=1 
140 IF X>15 THEN X=X-16:B<3)=1 
150 IF X>7 THEN X=X-8:B(2)=1 
160 IF X>3 THEN X=X-4:B(1)=1 
170 IF X>1 THEN X=X-2:B(0)=1 
200 POSITION 2,2:? 

CHR$(17);CHR$(18);CHR$(18);CHR$(18);CHR$(18);CHR$(18);CHR $(18 
);CHR $(18);CHR $(5) 

210 POSITION 2,3:? CHR$(124);" ";CHR$(124) 

220 POSITION 4,3:? M;" " 

230 POSITION 6,3:? ":" 

240 POSITION 7,3:? S;" " 

250 POSITION 2,4:? 

CHR$(26);CHR$(18);CHR$(18);CHR$(18);CHR$(18);CHR$(18);CHR$(18 
);CHR$(18);CHR$(3) 

260 POSITION 0,16:? "- : -" 

270 POSITION 3,20 

280 ? "AATRACT:0 ";B(6);" ";B(5);" ";BC4);" ";B<3);" 

"; B (2);" ";B(D;" ";B(0);" ";X;" = " 

290 POSITION 34,20:? Y;" " 

300 GOTO 40+R 
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10: BS deb© recoger I os bits de ATRACT. El string se 
DIMenslona s6lo en 6 para ahorrar memorla. M3s adelante verS 
la razon por la que esto es suflclente. 

20: Para esta utllldad bastan los reglstros 19 y 20 de 
RTCLOK. Juntos funclonan casl 20 mlnutos. Aquf son actlvados 
a 0. 

40: Se calcula el tlempo total T en segundos segGn el 
metodo habitual. 

50: En X se anota el valor del reglstro 77. 

60: Cuando X sobrepasa el valor crTtlco de 127 se para el 
reloj Interno. Esto ocurre al actlvar la variable R a 10, de 
manera que el sal to hacla atras a I final del programa ya no 
se dlrlja a la Ifnea 40, donde se lee RTCLOK, si no a la 50. 
Al mlsmo tlempo debajo del cron6metro aparece la IndlcaclSn 
"STOPPED' 1 • 


70: Los sels elementos de la variable Indexada B son 

actlvados a 0. 

80 y 90: Calculan el tlempo en mlnutos y segundos. 

100: El valor de X se deposlta en Y, 

110 a 170: despu6s se determlnan los bits 7 a 1 del byte de 
datos X y se anotan en B(J). Puesto que slempre debe 

restarse de X el valor correspondlente, despu6s de la Ifnea 
170 el valor de X equlvale a I estado del bit 0. Esto exp I lea 
la Ifnea 10. Cabe menclonar que no es necesarlo volver a 
poner a 0 la variable X despu£s de cada pasada, ya que X se 
llena cada vez con el valor del reglstro 77. 

200 a 260: Imprlmen los graflcos de pantalla. Puesto que 

una Impresora de aguja es tncapaz de convertlr los 

pseudo-caracteres grSflcos sin ayuda de la conslgulente 

adaptaclon software, se ha utlllzado el comando CHR$ para 
los elementos grSflcos en cuestlon. 
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220 a 240: Imprlmen I os mlnutos y segundos en curso en el 
recuadro sefialado para tal fin. 

300: Bucles sin fin medlante saltos hacla atras. 


SI se manlpula el tec I ado durante la ejecuclon del programa 
en curso, aunque el valor del reglstro 77 quede postergado, 
el cron6metro continue funclonando. Medlante la lectura de 
CH (764 = $2FC) se podrta registrar la pulsacl6n de una 
tecla, y con un salto hacla la ITnea 20 se podrfa volver a 
poner a 0 el cron6metro. 

Con este programa, usted mlsmo podrS darse cuenta del tlempo 
que requlere ATRACT para actlvar el modo attract. El valor 
es bastante superior a I que se asegura en muchas 
pub I leadones. SI escribe un juego o programa graflco que 
sobrepase este Ifmlte temporal sin que se efectOe nlnguna 
entrada a trav£s del tec I ado, porque estS jugando por 
ejemplo con el joystick, entonces deberfa evltar que el modo 
attract haga "ballar" los colores. Para ello deberS afiadlr 
un POKE 77,0 en su programa. 


78 $4E DRKMSK 

Aquf aparece un 254 mlentras el modo attract no est6 
actlvado y despuSs se pone a 246, lo que evlta sobrepasar la 
clarldad del color en un 50$. 


79 $4F C0LRSH 

Mascara para camblar de color. Los reglstros de color (a 
partlr de 708 = $2C4) se comb I nan con las dlrecclones 78 y 
79 medlante una operac!6n EOR (excluyendo OR). 
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30 


$50 


TMPCHR 


Reglstro temporal utlllzado por el motor del display para 
envlar datos a la pantalla o leer I os de el la. 


81 $51 H0LD1 

Igual que TMPCHR. TamblSn se utlllza para retener el ndmero 
de entradas del list del display. 

82 $52 LMARGN 

Valor de columna para el margen Izqulerdo de la emlslSn en 
pantalla. 0 Indlca la columna del extremo Izqulerdo. El 
valor default es 2. Vea tambl6n RMARGN. 

83 $53 RMARGN 

Valor de columna para el margen derecho de la em!sI6n en 
pantalla. 39 Indlca la columna del extremo derecho. El valor 
default es 39. Ambos reglstros de margen pueden actlvarse 
(con clertas IImltaclones) a cualquler valor. De esta manera 
el editor de pantalla responde si despuSs de 82 y 83 se hace 
un POKE del mlsmo valor. Cargue cualquler programa en la 
memorla, haga POKE 82,n y POKE 83,n (n de 0 a 39) y haga 
LIST. jQu6 ocurre? 

M5s experlmentos: el margen derecho estci a la Izqulerda del 
margen Izqulerdo, por ejemplo POKE 82,37 y POKE 83,5. 0 el 
margen derecho toma un valor superior a I margen derecho; 
POKE 82,37 y POKE 83,47. Solo si da un valor superior a 39 
a I margen Izqulerdo, pulsara seguldamente y con satlsfacclon 
la tec I a RESET. 
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RESET renueva los valores default de los mSrgenes, El 
borrado o Inser+ado de Ifneas no s erS afectado por las 
mod ifIcaciones de los margenes de sal Ida, Insert Line 
Inserta slempre una Ifnea ffslca, Independlentemente de su 
longitud, y Delete l Ine slempre borra una Ifnea I6glca. 

Los mSrgenes tambI6n influyen en la IdentIfIcacI6n actistlca 
del final de la Ifnea loglca. Esta IdentIfIcaclon acdstlca 
se rlge por el final de la Ifnea I6glca, que tambI6n se 
reduce si se acortan las Ifneas ffslcas, El zumbador slempre 
suena, pues, antes de finalIzar la tercera Ifnea, 


84 $54 ROWCRS 

Actual poslc!6n de Ifnea del cursor grdflco o de texto. 
Segdn el modo graflco se admlten valores de 0 (arrlba) a 19 
o 191 (abajo), 

85,86 $55,$56 COLORS 

Actual pos!c!6n de columna del cursor graflco o de texto, 
Segdn el modo grdflco se admlten valores de 0 (Izqulerda) a 
39 6 319 (derecha), El slgulente programa salta con el 
comando POSITION hacla dlversas poslclones de pantalla e 
Imprlme allf el valor actual del cursor, El primer cardcter 
de la Impresl6n se sltda en el lugar del sal to y los demds 
caracteres slguen en el sentldo de escrltura: 
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0 REM ADR84.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * PROGRAMA DEMOSTRACI ON DEL * 

4 REM * POSICIONAMIENTO DEL CURSOR * 

5 REM * * 

6 REM ****************************** 

10 PRINT CHR$( 125)-.POKE 82,0 

20 FOR X=0 TO 30 STEP 6 

30 FOR Y=0 TO 22 STEP 2 

40 POSITION X,Y:PRINT PEEK(85);V';PEEK(84); 
50 NEXT Y 
60 NEXT X 
70 GOTO 70 


40: La dIrecclon 86 contlene el byte HI de las posI clones 
de columna del cursor. Slempre es 0, excepto en GRAPHICS 8, 
donde puede tomar el valor 1. Por ello basta aquf con leer 
85. 

Los contenldos de I os reglstros se Imprlmen en orden 
Inverso, ya que todos I os comandos referfdos a las 
poslclones de pan+alla Indlcan los valores en el orden 
columna,Ifnea, o sea: PLOT columna,Ifnea o POSITION X,Y. 
Puesto que el reglstro 85 contlene el valor de columna se 
Imprlmlra antes de la coma. 

70: Evlta el fin del programa con READY. 

Cabe menclonar qye no tlene nlngtin sentldo entrar esta 
!nstrucc!6n: 

POSITION n,m:? PEEK(85);" ,, ;PEEK(84) 

Esta lnstruccl6n no encontrarS nunca el valor n,m, puesto 
que si at final de esta entrada dlrecta se pulsa la tec I a 
RETURN, el cursor salta Inmedlatamente a I prlnclplo de la 
slgulente Ifnea ffslca y este serS preclsamente el valor de 
pos!cI6n que la Instrucclon encontrarfi. 
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El comando LOCATE ©n BASIC no s6lo Inspecclona la pos!c!6n 
de pan+alla a la que nos hemos dlrlgldo, sfno que tambl£n 
mueve el cursor un espaclo a la derecha con el slgulen+e 
comando PRINT o PUT, modiflcando los valores en ROWCRS y 
COLORS. Pot clerto, CHR$(253), el sonldo de alarma (BEL), no 
es un carSc+er de pres I on y por lo tanto no Inclde en la 
pos!c!6n del cursor. 

Puesto que el comando LOCATE tlene sus pecuIlarIdades, a 
contlnuac!6n le ofrecemos un programa demostra+lvo: 


0 REM ADR85.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * INFLUENCE DE LOCATE * 

4 REM * SOBRE EL CURSOR * 

5 REM * * 

6 REM ****************************** 
8 LIST 110 

10 GRAPHICS 0:PRI NT CHR$(125) 

20 POSITION 30,20 

30 PRINT PEEK(85); 11 , 11 ;PEEK(84); 

40 LOCATE 4,4,D 

50 PRINT PEEK(85); M , ,f ;PEEK(84); 

60 LOCATE 0,0, X 
70 POSITION 10,10:PRINT "A" 

80 LOCATE 10,10,D:PR I NT D 
90 FOR Z=0 TO 1000:NEXT Z 
100 LOCATE 10,10,D:PR I NT D;" " 

110 FOR Z=0 TO 1000:NEXT Z 
120 LOCATE 10,10,D:PR I NT D;" " 

200 GOTO 90 
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lOjAunque no *hace falta liamar GRAPHICS 0 expresamente, el 
comando es necesario en es+e caso porque LOCATE s6lo surge 
efecto cuando le precede un comando GRAPHICS* 

20:Salta hacla la poslcion 30,20. Por ello los 
correspondlentes valores se encuentran na+uralmen+e en los 
registros del cursor que en la Itnea 

30:son leTdos y eml+idos en pan+alla. Por favor, tenga en 
cuenta el punto y coma al final de la Instruccl6n. Este 
evlta que el cursor salte hacla la ITnea slguiente despu^s 
de la sal I da PRINT, man+enISndolo directamen+e de+ras de la 
Impresion. Sin embargo, ya que en Ifnea 

40:hay un comando LOCATE, el cursor se mantlene 6pt!camen+e 
detras de la poslcl6n 30,20, mlen+ras que en real I dad se 
encuentra en 4,4. LOCATE localIza el valor COLOR (punto 
graflco) o ATASCII (caracter) y lo guarda en la variable 
Indlcada. 

50:Se vuelve a imprimlr el reglstro del cursor. La coma aI 
final de la Instrucclon provoca un sal to tabulador. 

60:Con el sal to producldo en esta Itnea vuelve a quedar 
atras un cursor optlco. 

70:Con PRINT se Imprlme una A en e! lugar 10,10 para otra 
experlencla. 

80:L0CATE encuentra en 10,10 el valor ATASCII de A (=65), 
que se imprlme Inmedlatamente. jEl comando PRINT 
dlrectamente detrSs de LOCATE modifica el valor en el lugar 
local Izado! 

90:Un pequefio descanso para la vista. 

100:Esta vez, el comando LOCATE ya no localiza el valor 65 
(A) sino 32 (espacio) en 10,10. 

110:0tro momento de descanso. 
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120:0tra. vez se ha modlflcado el valor de este lugar 
mediante LOCATE y a contInuac!6n PRINT, Ahora se ve un 
espaclo Inverso y se localIza el valor 160, 

200:Es+e' juego slgue IndefInidamen+e hasta que se Interrumpa 
con BREAK. 

El truco con LOCATE solo funclona en GRAPHICS 0. En Ios 
ATARI BASIC reference Cards se asegura, que tambl^n funclona 
de la mlsma manera en GRAPHICS 9,10 y 11. Sin embargo, el 
programa de ejemplo adjunto no produce el efecto anunclado, 
puesto que a I conectar un mode grSflco sin ventana de textc, 
el comando PRINT cambla Inmedlatamente a GR.O. 


87 $57 DINDEX 

Los cuatro bits Inferlores recogen el ntfmero de 
I dentlfleadon del modo graflco actlvado. Puesto que en 
muchas funclones graflcas el OS se reflere a este reglstro, 
este puede utlllzarse para slmular un modo graflco dlstlnto 
a I que real mente ha si do llamado con GRAPHICS. El reglstro 
puede tomar valores de 0 a 15 que corresponden a los 
comandos GRAPHICS y no a los comandos ANTIC (vea ap^ndlce 
display 11st): 

El programa slgulente le muestra la forma de slmular nuevos 
modos grSflcos con ayuda de DINDEX, que crea una resoluclon 
graflca de 160 (de 0 a 159) por 192 (de 0 a 191) puntos de 
pantalla. Cada pixel ocupa, pues, dos puntos de pantalla y 
cada ITnea del modo equlvale a una Ifnea del TV. Los col ores 
se deflnen tal como estci prevlsto para GRAPHICS 8 (o sea 
24). Aunque pueden llamarse tres valores COLOR al Igual que 
para GRAPHICS 7 (o sea 23), s6lo aparecerSn dlferentes en 
cuanto a su clari dad: 
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0 REM ADR87.BEC 

1 REM fc****^***************"******** 

2 REM * * 

3 REM * GRAFICOS 7 1/2 * 

4 REM * * 

5 REM **************************'*"#•** 

10 GRAPHICS 24 

20 POKE 87,7 
30 COLOR 3 

40 FOR X=0 TO 159:PLOT X,0:NEXT X 
50 COLOR 2 

60 FOR Y=0 TO 95:PL0T 0,Y:PL0T 159,Y:NEXT Y 
70 COLOR 3 

80 PLOT 0,0:DRAWT0 159,95 
90 COLOR 2 

100 PLOT 0,95:DRAWT0 159,0 
110 COLOR 1 

120 FOR X=0 TO 159:PLOT X,95:NEXT X 
200 POKE 89,PEEK(89)+15 
210 COLOR 3 

220 FOR X=0 TO 159:PLOT X,0:NEXT X 
230 COLOR 2 

240 FOR Y=0 TO 95:PLOT 0,Y:PL0T 159,Y:NEXT Y 
250 COLOR 1 

260 PLOT 0,0:DRAWTO 79,95:DRAWT0 159,0 
270 PLOT 0,95:DRAWTG 79,0:DRAWT0 159,95 
280 COLOR 2 

290 FOR X=0 TO 159:PLOT X,95:NEXT X 
300 GOTO 300 


10: Se llama al modo grSflco 8 sin ventana de texto. 

20: En DINDEX se depost+a el valor 7. 

30 a 120: Olbujan dtversas Ifneas de "dlversos colores". 

Naturalmen+e, en lugar de los PLOT FOR-NEXT tambl6n pueden 
escrlblrse DRAWTO PLOT. 
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Tenga en cuenta que el grdflco 8 llamado adml+e f en 
princlpio, 320 PPL (pixel per line = puntos de pan+alla por 
Itnea), pero a causa del POKE 87,7 la ITnea ya se ha llenado 
has+a la ml+ad (159). Estos son I os PPL de GRAPHICS 7. 
Puesto que ahora se dispone de dos bits de Informaclon de 
color para cada pixel (vea ap6nd!ce memorla de pan+alla para 
mSs Informacl6n), podemos dlrlgirnos a tres valores COLOR. 

Con el comando GRAPHICS se llama a I display list. En 
GRAPHICS 8 cada ITnea del modo es tan alta como una Ifnea 
del TV. La pan+alla serS +ra+ada } pues^en 191 ITneas de modo. 
Sin embargo, si se llama una pos!cI6n de pan+alla a traves 
de PLOT o DRAWTO, que sobrepasa Ios valores adml+ldos de 
GRAPHICS 7, en+onces se produce ERROR— 141 (poslcI6n del 
cursor Incorrec+a), ya que en es+e lugar empleza a ac+uar el 
valor modlflcado con POKE en DINDEX. Es+o slgnlflca que con 
I os valores de ITneas y columnas de GRAPHICS 7 s6lo puede 
tra+arse la ml+ad superior de la pan+alla. ^Qu6 bacer? 

Med I ante el comando GRAPHICS 8 se ha reservado memorla 
suflclen+e como para recoger los da+os de Imagen de +oda la 
pan+alla. Sin embargo, las man Ipulac Iones reallzadas Implden 
ahora escrlblr comandos BASIC con efec+os grSficos en la 
ml+ad Inferior de las cel das de memoria. 

Todos los comandos que hacen referenda a las poslclones de 
pan+alla calculan tn+ernamen+e el offset del by+e SM, que 
con+Iene los da+os del pun+o buscado. Es+o se hace segtin la 
ffirmula dlrecclon InIclaI SM + valor de columna/PPB (pixel 
per by+e) + valor de ITnea*BPL (bytes per line). Por ello, 
las coordenadas de GRAPHICS 7 s6lo adml+en un offset mSxlmo 
de 40 + 95*40 = 3840. 

200: Para poder acceder a los da+os de Imagen de la ml+ad 
Inferior de pan+alla, el vector hacla la dlrecc!6n Inlclal 
SM se Incremen+a en los 3840 bytes haMados an+erlormen+e. 

210 a 290: Con ayuda de los valores de posIclones 
adml+ldos, los pantos grSflcos pueden colocars© ahora con 
PLOT en la ml+ad Inferior de la pantalta. 
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300: Evl+a el fin del programa. Pues+o que no se dispone de 
ninguna ventana de texto, se conectarTa GRAPHICS 0, borrando 
por lo tanto el gr£fico construTdo, slmplemente para que el 
ordenador pueda mostrar su READY• 

SI ahora se ha despertado su cur Ios I dad para conocer todos 
los trucos realizables en el campo de los grSflcos del 
ATARI, satlfagala modificando ADR87.BEC en las Ifneas 
siguientes: 


0 REM ADR87A.BEC 

1 REM ******************************* 

2 REM * * 

3 REM UN GRAF ICO APETIT0S0 * 

4 REM * * 

5 REM ******************************* 
10 GRAPHICS 24:A=2 

15 TRAP 15:A=A+1 
20 POKE 87,A 
300 GOTO 15 


(vea tamb!6n los ap^ndices display list y memorla de 
pantaI I a). 


88,89 $58,$59 SAVMSC 

Puntero hacla la dlrecclon inlclalde la mem orI a de pantaI I a 
(SM = screen memory). En este byte se encuea±can__LQS_-datos 
de los pixel a visual izar en la esquIna superior...Izqnlec-da 
de la pantaI la. 

Los datos gr£ficos ocupan la memorla desde SAVMSC hasta 
RAMTOP (40959 = $C0000). Con la I Iamada de un comando 
GRAPHICS el puntero se ajusta hacI a el correspondlente lugar 
de la memorla. Sin embargo, el usuarlo puede modiflcar el 
puntero segun sus necesldades. 
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Es poslble, por ejemplo, deposltar en la mentor I a Ios datos 
de varlos con+enldos de pan+alla y modlftcar m6s tarde el 
contenldo de la pantalla, repentlnamente, ajustando el 
puntero SM hacla las dlversas dlrecclones In Id ales. Esto 
s6lo puede hacerse despu6s de cada VBLANK, cuando se vuelve 
a leer el display list desde el prlnclplo, pero esto ocurre 
clncuenta veces por segundo. 


En el slgulente programa ' se ha el egIdo GRAPHICS 3 (19) 
porque 6ste es un modo que tlene la agradable caracterfstlca 
de que la SM s6lo consta de 240 bytes, o sea tnenos que una 
p6glna. De esta manera se pueden deposltar, tranquilamente, 
los datos de cada pantalla en pSglnas consecutlvas de la 
memorla y mover rSpIdamente el grSflco por la pantalla al 
modlflcar el byte HI del puntero de SM. Sin embargo, 
modlflcar SAVMSC no causa nlngCin efecto en este caso, puesto 
que el puntero de SM tambI6n forma parte del display list, y 
el procesador de video extrae de ese puntero en el DL el 
lugar de la memorla donde debe Ir a buscar los datos de 
pantalla: 

0 REM PAGING,BEC 

1 REM ****************************** 

2 REM * * 

3 REM * CONMUTACION DE PANTALLA * 

4 REM * * 

5 REM ****************************** 

10 D=1 

20 GRAPHICS 19 
30 POKE 708,50 
40 POKE 709,52 
50 POKE 710,54 
60 FOR P=0 TO 20 
70 COLOR C+1 
80 X=INT(RND(0)*12) 

90 Y=INT(RND(0)*12) 

100 PLOT 19-X,11-Y 
110 PLOT 19+X,11-Y 
120 PLOT 19+X,11+Y 
130 PLOT 19-X,11+Y 
140 PLOT 19-Y,11-X 
150 PLOT 19+Y,11-X 
160 PLOT 19+Y,11+X 
170 PLOT 19-Y,11+X 
180 NEXT P 


61 



200 0=0+1:C=C+1:IF C=3 THEN C=0 

210 IF D=7 THEM 300 

220 SM=PE£M88)+PEEK(89)*256 

230 FOR K=0 TO 239 

240 POKE SM-D*256+K , PEEK(SM+K) 

250 MEXT K 

260 GOTO 20 

300 DL=PEEK(560)+PEEK(561)*256 
310 Z=PEEK(0L+5) 

320 FOR J=0 TO 6 
330 POKE DL+5 # Z-J 
340 FOR W=0 TO 50:NEXT W 
350 NEXT J 

360 FOR J=5 TO 2 STEP -1 
370 POKE DL+5,Z-J 
380 FOR W=0 TO 50:NEXT W 
390 NEXT J 

400 GOTO 320 


30 a 50: Los valores de color para el coma^do COLOK se 
deposl+an en Ios reglstros de color (vea C0L0R0, 708 = $2C4 
y slgulentes): 

60 a 180: La presen+acl6n* El prpgrama crea -unos cuantos 
grSflcos aleatorlos que van camblando de color* 

220 a 250: Los bytes de datos son lefdos uno tras otro en 
la memorla de pan+alja (PEEK SM+K) y ejscrl+os en el mlsjno 
orden (POKE SM — 0*256 + K) en una pSg4na superior (SM - 
D*256)* D de+ermTna el ndroero en que aumen+an las pSglnas 
donde se escrlbTrfin can POKE k>s datos ^corcespon<iTen+es, y-K 
Ciienta lodos 4os 240 dy+es -de GRAPHICS 3* 
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3U0: Calcula la direcclon I nIcI a I del display list (vec 
SDLSTL, 560,561 - $230,$231). 

310: El byte HI del pun+ero de SM en el DL es el quintc 

byte (jcontando el byte cero!). 

320 a 390: Trasladan el vector de SM cada vez que se 

ejecuta un corto bucle de espera. De esta manera, los clncc 
graficos creados en la parte superior del programa camblan 
repent inamente en la pantalla. 

Listed podr6 Imaglnarse sin dificultad c6mo pueden crearse 
an Imac Iones, a I igual que en las pel feu I as de dlbujos 
animados. Mlentras s6lo se util Ice el modo grafico 3 y el 
prop Io programa en BASIC no sea demasfado largo, se dispone 
de espaclo suflclente (en el 800) para unos cien contenldos 
de pantalla. SI nos llmitamos a una suces!6n de ImSgenes con 
destellos de 16 proyecciones por segundo, este ordenador le 
permltlr^ pasar ocho segundos de cine en tiempo real. 

(encontrarS mas juegos grSrlcos en el ap6ndlce memorla de 
panta1 I a)• 


90 $5A 0LDR0W 

Lfnea anterlor jjeJ cursor gr^ fIco. Es renovado por R0WCRS 
(84 = $54) antes de que 6ste tome un nuevo valor. As I, 

DRAWTO o el comando FILL (XI0 18) dlsponen de las 
coordenadas del com!en?o en 0LDR0W y de las coordenadas de 
destlno en ROWCRS. 


9J,92 $5B,5C OLDCOL 

Funcl6n pareclda a OLDROW en referenda a la s pos I clo nes de 
column as, por lo que ocupa dos bytes (320 columnas en 
GRAPHICS 8): 


93 $50 OLDCHR 
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Contiene el valor del carScter que se encuen+ra bajo el 
cursor y se utlliza para actualizarlo al mover este ultimo* 


94,95 $5E,S5F OLDADR 


Contiene la direccion de la memoria de pantalla que 
corresponde a la posiclon actual del cursor* Se utillza 
junto con OLDCHR para actualIzar el caracter cuando el 
cursor esta en movimiento. 


96 $60 NEWROW 

Coordenadas de las ITneas del punto hacla el cual debe 
dirigirse DRAWTO o XIO 18 (FILL)* 


97,98 $61,$62 NEWCOL 

Coordenadas de las columnas del punto hacia el cual debe 
dirigirse DRAWTO o XIO 18. NEWROW y NEWCOL reel ben su valor 
de ROWCRS y COLCRS (84 - 86 = $54 - $56), a fin de que estos 
registros puedan tomar las coordenadas slguientes del cursor 
durante la rutina DRAWTO o FILL. 


99 $63 L0GC0L 

Indica la posicion del cursor dentro de la ITnea I6glca. En 

0 

el ATARI, una ITnea I6gica puede tener una longitud de hasta 
tres ITneas de GRAPHICS 0, o sea 3*40 = 120. L0GC0L puede 
tomar por lo tanto valores de 0 a 119. Este registro es 
utilizado por el motor del display por ejemplo para emitir 
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la senal acdstlca de "Ifnea Ilena M . 


100-105 $64-$69 

Deposlto temporal u + MIzado por el motor del display para 
almacenar valores diversos. 


106 $6A RAMTOP 

I n d l ca el RAM de ajjl.I cac I ones di.sp.on Lb l e en pa ges (=256 
bytes) • 

PEEK(106)*256 determine la maxima dlreccl6n IIbre. 

Esta dlrecclSn pude utlllzarse para crear una zona proteglda 
de la memorla por ejemplo para rutlnas en lenguaje maqulna, 
juegos de caracteres llbremente deflnldos, datos de 
player-missile o memories de pantalla a Iternatlvas. La 
slgulente Instrucclon reserva la zona deseada: 

POKE(106),PEEK(106)-n 

n es el numero de paglnas de la memorla a reservar. El valor 
PEEK(106)*256 no puede ser nunca Inferior que 
PEEK(144)+PEEK(145)*256 (MEMT0P). 

Cuando se cambla RAMTOP para reservar memorla, deberTa 
segulr Inmedlatamente un comando GRAPHICS. Para ello se 
puede Ilamar tranqulIamente al modo graflco que en este 
momento esta actlvado. Ello provoca que los display list y 
los data graflcos se muevan slgulendo al nuevo RAMTOP. 


(?) Un comando GRAPHICS o CLEAR borra 64 bytes por enclma d€ 
RAMTOP. Med I ante el scroll de la ventana de texto en el modo 
graflco se escribe enclma de 800 bytes por enclma de RAMTOP, 
ya que en realidad la ventana de texto efectua el scroll de 
la total I dad de los datos de pantalla de GR.O que son. 
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ademas de las cua+ro ITneas de dlcha ventana, otras 20 
ITneas de 40 by+es cada una (= 800 bytes). Cuando hay que 
reservar memorfa deben conslderarse estos efectos para 
blindar en consecuencla una zona mayor, de manera que detris 
de I os datos a proteger aun quede una zona de segurldad lo 
sufIclentemente grande. 


Cuando se trabaja con GRAPHICS 7, 8, 9, 10, 11, 14 o 15, 
pueden produclrse per+urbacfones a I desplazar RAMT0P de 
forma que I os display list y I os datos de SM crucen un 
ITmtte de 4k. SI aparecen cualquler tlpo de resultados 
oscuros en la sal Ida a pantalla puede dar resultado reduclr 
RAMT0F* en un multiplo de 16 (4*4 paglnas = 4k). 


Otra poslbllldad de proporclonar una zona proteglda de 
memorla se encuentra por debajo de MEMLO (743,744 = 

$2E7,$2E8)• 


107 $6B BUFCNT 

Es utlllzado por el editor de pantalla como contador para el 
resto de la ITnea loglca. 


108,109 $6C,$6D BUFSTR 

Deposlto temporal. Devuelve el caracter a I que se apunta con 
BUFCNT. 
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110 


$6E 


B1TMSK 


Utllizado por el motor del display OS como mascara bit en 
las rutlnas bit-mapping* Ademas se utlllza como memorla 
intermedia. 


Ill $6F SHFAMT 

Ajuste de pixel. Calcula la poslcion de un pixel dentro de 
un byte de 1nformacl6n graflca. 


112,113 $70,$71 ROWAC 

Acumulador para controlar las Ifneas a I reallzar el PLOT* 


114,115 $72,$73 COLAC 

Acumulador para controlar las columnas* 


116,117 $74,$75 ENDPT 

Punto final de la Ifnea a trazar. Controla el proceso del 
PLOT de puntos en una Ifnea* 


118 $76 DELTAR 

Dif.erencla de Ifneas = el valor absoluto de NEWROW - ROWCRS. 


119,120 $77,$78 DELTAC 

Dlferencla de columnas = valor absoluto de NEWCOL - COLORS. 
Se utlllzan DELTAR y DELTAC para calcular el Incremento de 
la Ifnea con la que debe reallzarse el PLOT. 
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121,122 


$79,$7A 


KEYDEF 


Puntero haci a la tab I a de deflnlclones para convertir e l 
c6d!go de teclado en valores ATASCM. (/: vea 760 y 761 = 
$2F8 y $2F9) 


123 $7B SWPFLG 

Flag para controlar el cursor en la p antalla partld a (con 
ventana de texto). 


124 $7C HOLDCH 

Aquf se deposlta el valor de un caricter a^tas-^de—ejecutar 
la log lea CONTROL o SHIFT para 41. 

125 $70 INSDAT 

Memoria Intermedia utlllzada por el motor del display para 
el caracter que se encuentra bajo el cursor y para reconocer 
el final de Ifnea. 


126,127 $7E,$7F COUNTR 

Comlenza con el mayor valor o de DELTAR o de DELTAC. 
Corresponde aLjiCmero de puntos con \os que debe j^eal Izarse 
el PLOT para d[bujar- -wma llnea. Dlsmlnuye en 1 con cada 
f5unto~ con el que se ha efectuado el PLOT. SI este byte vale 
0, la ITnea esfS termlnada. 
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128,129 


$80,$81 


LOMEM 


Puntero hacja I a minima dl recclon dlsponlble para eI 
programa en BASIC. Los prlmeros 256 bytes slrven de buffer 
para la sal Ida de token, Un token es un equlvalente num6r1co 
de comandos, operadores y funclones, del tamano de un byte. 

El valor se obtlene aquT de MEMLO durante la lnlclaIizaclon 
del ordenador o durante un comando NEW, pero no durante el 
RESET. Esto slgnlflca que al camblar MEMLO tamblen debe 
adaptarse el valor de LOMEM. 


Al grabar un programa con SAVE, se graban en primer lugar 

1 os slete punteros BASIC desde LOMEM hasta STARP. Por lo 
tanto se resta el valor de LOMEM de todos estos punteros de 

2 bytes. De esta forma, I os dos prlmeros bytes grabados son 
ceros. Despues de I os punteros ee graban la tab I a de I os 
nombres de variables y sus valores y a contlnuaclon el 
programa BASIC convert!do en forma de tokens. 


AI efectuar LOAD, el valor de MEMLO se suma a cada uno de 
los slete punteros y a contlnuaclon se graban estos valores 
en las dlrecclones de los punteros en la pSglna cero. 
Despu6s se reservan 256 bytes por enclma de MEMLO para el 
buffer de sal Ida de los token, y seguldamente a este buffer 
se almacena el programa BASIC. 
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Na+uralmen+e con estos siete pun+eros se pueden causar 
efectos desas+rosos. Cuando tropas enemigas invaden el pafs, 
todos los indlcadores de camlnos y calles se qui+an o se les 
da la vuel+a. Cuando se feme la invasI6n de flsgones en el 
proplo y valioso programa, se les puede M dar la vuel+a" a 
esos pun+eros con el fin de despis+ar en algo aI Invasor. 
Pero no can+e victoria +odavTa, porque ningtin "fusilador" de 
verdad se deja In+Imidar por es+as "cria+uradas". Es+o 
quiere declr que las manIpuIaclones en ese sent I do s6lo 
ofrecen una pro+eccion liml+ada. 

Tal como ya mencionamos an+eriormen+e, con SAVE se graban 
+ambi£n los valores de los pun+eros. Sin embargo, no ocurre 
lo mismo haciendo LIST. Por es+a raz6n, los cambios 
reallzados en los pun+eros en BASIC ofrecen en primer lugar 
una pro+ecci6n de lis+ado. Aunque +odavfa pueda coplarse el 
programa sin dificul+ad con SAVE y LOAD, los lis+ados 
mues+ran, sin embargo, un aspec+o mcis o menos ex6+lco. 

El siguien+e programa mues+ra como se puede crear algo de 
confusi6n con una sola ITnea en BASIC: 


0 REM ADR128.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * LISTADO ENLOQUEC|DO * 

4 REM * * 

5 REM ****************************** 

10 A=A+10 

20 B=10:C=5:D=7.5 
30 F =A+B:G=A*C:H=A/D 
40 PRINT F,G,H 
50 GOTO 10 

100 REM X!033,#1,0,0,"D:SECRET0" 

110 REM Y=PEEK(128)+PEEK(129)*256+3:P0KE 
128,Y-INT(Y/256)*256:POKE 129,I NT(Y/256):SAVE "D:SECRETE" 
120 REM RUN'^'-SECRETO” 
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0 REM ADR128.BEC 

1 REM ^**************************** 

2 REM * * 

3 REM * LISTADO ENLOQUECIDO * 

4 REM * * 

5 REM ****************************** 

10 •PF=:PF+10 

20G=10:H=5:%%****************************** =7,5 
30 D=:PF+G:Y=:PF*H:ADR128.BEC 
40 PRINT D,Y,ADR128.BEC 
50 GOTO 10 

100 REM XI033 ,#1,0,0"D:SECRETE" 

110 REM Y=PEEK(128)+PEEK(129)*256+3:POKE 
128,Y-1 NT(Y/256)*256:POKE129,1 NT < Y/256):SAVE"D:SECRETE” 
120 REM RUN”D:SECRETE" 


10 a 50: Estas iTneas contlenen un programa BASIC 
totalmente incoherente, programa que deberfa ser protegido 
sobre todo contra miradas Indiscretas ya que utlllza una 
serle de t6cnicas de programac!6n que a I teran la 
programac!6n BASIC. 

110: Borre tanto el numero de Ifnea como el REM y escrlba 
esta Ifnea en modo dfrecto. Se creara un fichero en el 
diskette cuyo nombre sera "SECRETE". Durante el proceso se 
Iran restando de todos los punteros el dlsparatado valor de 
L0MEM, tal y como se explic6 anteriormente. 

120: Borre ahora el ndmero de Ifnea y el REM para realizar 
una entrada en modo directo. Por supuesto tambI6n puede 
ordenar prlmero LOAD y despu£s RUN para consegulr mayor 
efectivldad. El resultado que se muestra en la pantalla le 
permlte comprobar claramente que el programa trabaja sin 
errores. ^Y por qu6 no? Pero quizes ahora desee efectuar un 
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LIST en el ordenador. ) Que le parece este LIST? 


Por clerto, tamblen puede probar con L1ST"C: o LISP'D:; 
jpero el ordenador disfru+a especI aImen+e con un LIST"P:"! 


100: Para borrar este confuso programa de su diskette tan 
solo debe entrar dlrectamente esta Ifnea (elimfnar numero de 
Ifnea y REM y pulsar RETURN). Esta instrucclon le evlta 
tener que acceder a I DOS y efectuar la opclon D y, s! no hay 
ningun MEM.SVE en el diskette, de cargar ademas nuevamente 
el programa de "D:" en el ordenador despu^s de la opclon B. 


130,131 


$82,$83 VNTP 


Este puntero apunta hacla el primer byte de I a tabla que 
contlene los nombres de._YarIables.~Los nombres de las 
variables se almacenan segun el orden en que estas son 
utlllzadas por el usuarlo. Cada vez que usted cometa un 
error de teclado y la confIguracIon del mismo colnclda 
casualmente con una de las variables, este error tamblen 
constara en la tabla de variables. 


Los nombres de las variables se almacenan segun formato 
ATASCII. Las variables Indexadas son anotadas hasta Ilegar 
al parentesls ablerto, por el cual seran ldent IfIcadas. Las 
variables de cadena (strings) termlnan con el caracter $. En 
teorfa, los nombres de variables pueden tener la misma 
longltud que una Ifnea loglca. El ATARI tamblen es capaz de 
distlnguir entre todas estas variables. Esto qulere declr 
que, a diferencla de otros ordenadores persona Ies, el ATARI 
no consldera solo los dos o tres prlmeros caracteres de cada 
variable. Para reconocer donde_termlna un nombre_dej^anlable 
y donde corolen-^a el s Igu-leate ^se actlva_e J_ BMS (bit mas 
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significatIvo = _ bi t 7) de valor decimaI 128 con el u1 11 m o 

caracter de_La_variable, Para el editor de pantalla, esto 

significa emitir el caracter Inverso (negativo). 


En esta tab I a pueden registrarse hasta 128 nombres de 
variables, Esto puede resultar Insuficiente si se pretende 
escribir un programa muy largo. A cont!nuaci6n le ensefiamos 
algunos trucos cuyo fin es evltar este problema: 


1: Elija nombres de variables lo mas breves posible. Los 

nombres largos (jnicamente ocupan mucha memoria y hacen que 
el programa sea mas lento. Sin embargo, los nombres de 

variables largos pueden memorizarse con mayor facilidad 
durante la confeccion de un programa. Por ello es 

aconsejable escribir el programa tranquiIamente utilizando 
termlnos claros para designar variables, sustituy£ndolos una 
yez finalizado el programa. jNo! Naturalmente no nos 
referimos a tener que sustitulrlos en el mismo programa 
-ITnea por ITnea y pasando por alto uno por aquT y otro por 
alia, enfrentandonos durante horas a los ERRORes- slno a 
sustitulrlos dlrec+amente en la tab I a de variables. 

2: Si no queda espaclo libre en la tab I a de variables, 

puede ser util dar un pequeno rodeo. Es muy probable que con 
la aficion de programar se nos haya deslizado algdn que otro 

nombre en la tab I a, el cual ya no sea necesario. Grabe el 

programa en el diskette con LIST, entre NEW -que tamblen 
borra la tab I a- y vuelva a entrarlo con ENTER. Ahora se han 
borrado todos los nombres de las variables Inutiles. Pero 
para ello debe efectuar un LISTado, puesto que SAVE graba la 
tab I a entera y la vuelve a cargar. 
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3: Util Ice variables auxlllares varlas veces. No hay 
nlnguna raz6n para menclonar en el primer bucle FOR-NEXT una 
de+ermlnada variable y otra dlstln+a en el slgulente. Puede 
utlllzar tranqullamente el mlsmo contador para todos los 
bucles FOR-NEXT que no est6n Indentados entre si. 

4: SI su programa no padece de escasez de variables, es 
aconsejable aslgnar una variable a todos aquellos valores 
num^rlcos que son u+lllzados mSs de tres veces a lo largo 
del programa. Por un I ado, una variable ocupa memorla en la 
tab I a de nombres y por otro en la de valores de variables. 
En el proplo programa BASIC la variable ocupa tan s6lo el 
mlsmo ndmero de bytes como caracteres tlene su longltud, o 
sea un dnlco byte en el caso mSs favorable, mlentras que 
jcada valor numSrlco ocupa slempre sels bytes! Escrlba pues 
GOTO J en vez de GOTO 300, por ejemplo. Esto nos Indlca 
claramente que el espaclo de memorla ahorrado al utlllzar 
variables, es dlrectamente proporclonal aI ndmero de veces 
que clerto valor num^rlco estS contenldo en un programa. 
Solamente aparecen problemas si usted pretende renumerar 
posterlormente las Ifneas de un programa de este tlpo 
utlllzando una utllldad renumber, puesto que no hay nlngdn 
programa "renum” que convlerta destlnos de sal to 
a Ifanum6rI cos. 


Ahora observe la tab I a de variables: 


0 REM ADR130.BEC 

1 REM )Ht***^HHt***^****^*********** 

2 REM * * 

3 REM * LI STAR TABLA DE VARIABLES * 

4 REM * * 

5 REM ^******^**-*HHe*^************ 

10 A=PEEK(130)+PEEK(131)*256:E=PEEK(132)+PEEK(133)*256:FOR 
1=4 TO E-A-1:0=PEEK(A+l):IF 0>128 THEN 0=0-128:G0T0 30 
20 PRINT CHR$(0);:G0T0 40 
30 PRINT CHR$(0),:G0T0 40 
40 NEXT I:END 

100 B=1:C=2:D=3:DIM F$(1),G(2),H$(3) 

200 REM V=PEEK(130)+PEEK(131)*256+4:POKE V+X.CHR+128 
300 REM X=0:CHR=84:REM B SERA T 



10: La variable A recoge el pun+ero hacla el principle de 
la tabla de nombres de variables (dlrecclones 130,131). Con 
E se deslgna el puntero hacla el final de la mlsma 
(dlrecclones 132,133). El slgulente bucle FOR-NEXT lee ahora 
todos I os bytes que se encuentran entre A y E. Puesto que 
este pequeno programa destlnado a 11 star los nombres de las 
variables tamblSn contlene sus propias variables (A, E, I y 
0), el bucle . comlenza a partlr del valor 4. Pruebe 
sustltuyendo aquf un 1 o un 0. La cond!cI6n IF comprueba si 
el byte lefdo corresponde a I tfltlmo cardcter del nombre de 
una variable. Unlcamente en caso aflrmatlvo el programa 
salta hacla la Ifnea 30 donde la coma proporclona un salto 
tabulado, separando asf las variables. # 

20: El comando CHR$ basta para hacer que las variables sean 
leglbles, ya que los nombres de variables se almacenan en la 
tabla segtin formato ATASCI1. El punto y coma enlaza los 
caracteres dlrectamente uno tras otro. 

30: Igual que la Ifnea 20, pero con salto TABulado. 

100: Esta Ifnea representa el programa BASIC que en este 
caso s6lo consta de sets variables. 
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300: SI ahora se Identlflca la poslclon exacta de una 
variable en la tabla, efectuando un POKE del valor ATASCII 
correspondlente, se puede camblar el contenldo de la celda 
de memorla y con ello el nombre de la variable. La prlmera 
variable (o sea la variable cero) del sustltuto de un 
programa BASIC en la Itnea 100 es B. Esta variable debe 
tomar ahora el nombre "T". El valor ATASCII de T es 84, 
Quite el nGmero de Ifnea y el REM y escrfba la Instrucclon 
en modo dI recto. X deslgna el lugar que debe ser camblado. 
Debe contarse cada caracter y no s6lo cada variable. B es el 
caracter nGmero 0 de I a tabla, y X toma el valor 0. A CHR se 
aslgna el valor ATASCII del nuevo caracter. 

200: En esta Ifnea se efectGa el camblo de variables. Con V 
se deslgna el puntero (VNTP) hacla el prlnclplo de la tabla 
de variables. En este lugar aGn se suma el valor 4 porque el 
programa precedente contlene cuatro variables en las ITneas 
10 a 40, que seran salvadas de esta forma. Por clerto, el 
primer byte a I que apunta el VNTP slempre es 0. SI hace que 
6ste se Imprlma a trav6s de la rutlna Indlcada, aparecerS un 
corazon del ante (gracloso, j no?). 


En la dlrecclon V (primer caracter de la prlmera variable de 
la tabla) + X offset del carlcter a modlflcar se coloca 
medlante POKE el valor ATASCII del nuevo caracter. En 
nuestro ejemplo', este corresponde a I Gltlmo de la variable, 
por lo que debe actlvarse ademSs el bit 7 (CHR+128) para 
Identlflcar el final de la mlsma. 

Borre tamblen de esta Ifnea su nGmero y el REM para reallzar 
una entrada en modo dlrecto. A contlnuaclon escrlba RUN para 
volver a Imprlmlr la tabla de los nombres de variables, y 
verS ... 


SI ahora qulere convertlr F$ en V$, Indlque un 3 en el lugar 
de X y un 86 en el de CHR, pulse RETURN y zasss. 
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uTiiizanao estas llneas como base, se puede confeccionar 
faclImente un programa de utllldades que nos permlta camblar 
los nombres de las variables a traves de confor+ables 
entrad^s para X y CHR y consul tar si se trata de un cardcter 
final o no. Es aconsejable escrlblr un programa de este tlpo 
con ndmeros de Ifnea muy elevados (de 32700 a 32767), de 
manera que en caso necesarlo pueda ser cargado detrSs de un 
programa BASIC ya exlstente en el ordenador. Para ello 
tambI6n hay que tener en cuenta que, entre el programa 
fuente y el de u+Illdad, no se produzcan cruces con los 
nombres de las variables. 

La m I6n de alargar los nombres de las variables s6lo 
podrfa resolverse con grandes dlfIcultades, puesto que 
comportarTa desplazar hacla abajo todas las que se 
encuen+ran en las poslciones slgulentes de la tabla. Sin 
embargo, es fSc 11 recortar los nombres de las variables. 
Solo hace fal+a POKEar 0 en las poslciones correspond Ien+es, 
o en su caso 128 si el carScter a ellmlnar es el dltlmo. SI 
blen es clerto que dnlcamente con esta accI6n no se han 
reducldo todavfa los reglstros en la tabla de variables, ya 
que adn se ocupa el mlsmo ndmero de bytes, tambl6n puede 
r^olverse con LISTED:", NEW, ENTER ,, D: ,, . 


SI en algdn momento le apetece ocultar de nuevo sus obras de 
programac!6n de Indlscretas mlradas LIST, tambI6n dispone de 
la tabla de variables. Qu6 le parece, por ejemplo, un 
llstado en el que todas las variables sean Identlcas : 
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0 REM ADR131.BEC 

1 REM *********** ******************* 

2 REM * 

3 REM *DESTRUIR TABLA DE VARIABLES * 

4 REM * * 

5 REM ^*********************** **** 
10 A=PEEK(130)~P_EK(131)*256 

20 Z-PEEK(132)+PEEK(133)*256 
30 FOR J=A TO Z'-POKE J,129:NEXT J 
100 B=10:C=30:D=2. 

110 F=C-B:G=B/D:H=D*C 
120 ? F,G,H 


10: El puntero VNTP que apunta hacla el prlnclpio de la 

tab I a que contlene Ios nombres de las variables es asignado 
a A. 

20: El puntero VNTD hacia el final de la tab I a de los 

nombres de las variables es anotado en Z. 

30: Ahora ya solo le queda llenar todos los bytes que se 

encuentran entre A y Z con un mismo valor ATASCII. 
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Escoja un valor ATASCII mas 128 para sustl+ufr por el mlsmo 
carScter todas las variables del llstado. TambISn es muy 
bon Ito efectuar un POKE con valor 128, provocando de esta 
forma la desapar!c!6n de todas las variables del llstado. 
Tamb16n valores Inferlores a 128 resultan as Imlsmo muy 
graclosos, puesto que con ellos ya no se pueden Identlflcar 
Ios finales de dlchas variables* Observe usted el aspecto 
tan divertIdo que adqulere un llstado de este tlpo. Pero la 
cu!m1nac16n del sustltuto de las variables es el bon 1to 
nGmero 155. Este es el valor ATASCII correspondIente de 
RETURN. De esta forma, cada variable se sustltuye por un 
RETURN. Incluso en programas mSs blen cortos, el resultado 
de tal operaclfin son unos llstados maravlIlosamente largos 
que no contlenen nl una sola variable. 
jQue se dlvlerta con este juego de confuslones! 


132,133 $84,$85 VNTD 

Este puntero apunta hacla el f inal de la tabla que contlene 
los nombres d e I as va r1abIes . SI exlsten 128 nombres en la 
tabla, el puntero apunta hacla el primer byte detrSs del 
ultimo carScter de la Gltlma variable. SI hay menos 
variables en la tabla, el puntero apunta hacla un byte vacfo 
(0; ATASCII 0 = corazfin) que se encuentra Inmedlatamente 

detrSs de la Gltlma variable, o sea en el lugar donde se 
colocari el prdximo nombre. 


Otra rutlna eflcaz de protecc!6n contra el llstado conslste 
en camblar los dos punteros VNTP y VNTD. El valor a colocar 
con POKE en los bytes de los punteros s6lo depende de su 
fantasia. En el slgulente ejemplo se ha escogldo un 0: 
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0 REM ADR132.BEC 

1 REM ^**************************** 


2 REM * * 

3 REM * DESTRUIR APUNTADOR DE * 

4 REM * LA TABLA DE VARIABLES * 

5 REM * * 


6 REM ^**************************** 
10 FOR J=0 TO 3sPOKE 130+J,0:NEXT J 
100 A=10:B=30:C=7.5 
110 F=A+B:G=B/C:H=C*A 
120 PRINT F,G,H 


10: Es+a Itnea que parece tan Inocente basta para confundlr 
I os dos punteros. 


100 a 200: Este sustltuto de un programa BASIC tan s6lo 
esta aquT para que usted pueda apreclar las Impreslonantes 
consecuenclas del POKE confuso al efectuar un LISTado. 


134,135 $86,$87 VVTP 

Puntero hacla la tabla de valores de las variables, Aquf se 
anotan los valores actuales de todas las reglstradas en la 
tabla de nombres. Cada variable ocupa ocho bytes en la tabla 
de valores. El primer byte Indlca el tlpo de variable de que 
se trata. 

El nGmero de IdentlfIcaclon 00 corresponde a un escalar 

(valor num6rIco no dlmenslonado). 

El nGmero de IdentlfIcaclon 65 corresponde a un array 

DIMensIonado (variable Indexada). 

El nGmero de I dentlfIcaclon 129 corresponde a un string 

(variable de cadena). 
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El segundo byte contlene el numero de la variable, que es un 
numero entre 0 y 127. 

En el escalar, I os sels bytes restantes toman la constante 
BCD (binary coded decimal = ndmero decimal codlflcado en 
blnarlo)• 

En el array, los byte 3 y 4 Indlcan el offset de STARP 
(140,141 = $8C,$8D), que corresponde a la poslclfin dentro de 
la tab I a del string y del array. Los bytes 5 y 6 contlenen 
el primer DIMensIonado + 1, y los bytes 7 y 8 contlenen el 
segundo + 1. SI una variable tlene DIMenslon simple, los 
bytes 7 y 8 tlenen valor 0. 

En las variables de cadena (string) los bytes 3 y 4 Indlcan 
Igualmente el offset de STARP. Los bytes 5 y 6 contlenen la 
actual longltud del string, mlentras que los bytes 7 y 8 
contlenen la longltud deflnlda con DIM. 

SI desea Ilenar un string con caracteres Identlcos, exlste 
para ello una tecnlca send I la. Slmplemente debe deposltar 
el caracter deseado en la prlmera poslclon del string, el 
proplo string en la filtlma poslclfin del mlsmo, e 
Inmedlatamente se Mena por completo el string con ese 
caracter deposltado en primer lugar: 


0 REM ADR135.BEC 

1 REM ******************************* 

2 REM * * 

3 REM * COMPLETAR STRING * 

4 REM * * 

5 REM ******************************* 
10 DIM TX$(266) 

20 TXS(1 )="?•' 

30 TX$(266)=TX$ 

40 TX$(2)=TX$ 

100 ? TX$ 
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10: Se efec+Ga un DIM 


20: Se deposl+a el primer carScter. 

30: Se deposita el ultimo carScter. jPero hay que deposltar 
TX$ y no "?"! 

40: Ahora se Ilena la segunda poslclon y el string estara 

Ilsto. 

100: Aquf puede observar el resultado. 

No es obllgatorlo llenar el string completo de esta forma. 
TambI6n se puede escrlblr solo parclalmente en el: 


0 REM ADR135X.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * EXPLOSION DE MEMORIA * 

4 REM * * 

5 REM ****************************** 
10 DIM TX$(FRE(0)-1) 

20 TX$(1 ) =,, ! H 
30 TX$(9999)=TX$ 

40 TX$(2)=TX$ 

100 ? TX$ 


10: Se reserva toda la memoria aCin dlsponlble (FRE(0)) para 
TX$. por que no? ' 

30: Sin embargo, se llenan solo los primeros 9999 mlembros 

con ••!••• 
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De todas maneras, en este programa se presenta un pequeno 
problema con la forma aqut mostrada. Puesto que TX$ ocupa 
toda la memorla, ya no se puede reallzar una salida en 
pantalla. Esto slgnlflca que tendremos que llmltarnos en la 
ITnea 10* Pero es poslble que este bonlto efecto lleve a los 
lec+ores mas creatlvos a una Idea de como conflgurar un 
programa -medlante el llenado de la memorla llbre- de tal 
manera que realmente fund one de la forma prevista, pero 
reglstrando regularmente los errores que sobrepasen el 
Ifmite, reallzados por poslbles experlmentos Indeseados del 
usuarlo. 

Pero volvamos a las cuestiones mas serlas de la 
programacion. El efecto descrlto anterlormente funclona no 
solo con un tinlco caracter, slno tamblen con secuenclas 
enteras de caracteres. Para ello se deposlta en la pos!ci6n 
1 del string la secuencla de caracteres; a contlnuacIon, se 
deposita el proplo string al final del mlsmo de tal manera, 
que el ultimo carScter de la secuencla ocupe la Ciltlma 
poslclon a llenar. 0 sea, si se pretende llenar el string 
completo, debe restarse la longltud de la secuencla de 
caracteres de la longltud del string. FInalmente debe 
colocarse ademSs el string en la poslclon que slgue a la 
secuencla de caracteres deposltada en primer lugar, o sea en 
la posIcI6n 1 + longltud de secuencla de caracteres. En fin, 
no quIero extenderme mas: 


0 REM ADR135A.BEC 

1 REM ****************************** 


2 REM * * 

3 REM * COMPLETAR PER IODICAMENTE * 

4 REM * UN STIRNG. * 

5 REM * * 


6 REM ****************************** 
10 DIM TX$(264) 

20 TX$(1)="!#?$" 

30 TX$(261)=TX$ 

40 TX$(5)=TX$ 

100 PRINT TX$ 
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10:TX$ toma la DlMens Ion 264 


20:En las posiclones 1 a 4 se deposlta la secuencla de 

carac+eres. 

30:A contlnuaclon se col oca TX$ en las poslciones 261 a 264 
40:y desoues ademas en posicion 5, o sea de 5 a 8. 

136,137 $88,$89 STMTAB 

Puntero hacfa la tab I a de Ins+rucclones, o sea el proplo 
programa BASIC en forma token• Los dos primeros bytes de una 
ITnea BASIC con vertlda en forma token contlenen el nOmero de 
Ifnea (L0,HI*256). Les sigue un byte contador que Indlca el 
nGmero de cel das de memorla ocupadas por la ITnea BASIC. 

Este byte contador toma su valor en el momento en que ha 

finalIzado la conversi6n en forma token, efectuada en el 

buffer de saiida del token (256 detras de LOMEM). El byte 3 
confiene el offset de ITnea (BASIC) a ITnea. 

Si quiere descubrir en que cel das de memorla reside su 
programa BASIC, pruebe el siguiente programa: 


0 REM ADR136.BEC 

1 REM ^^***^*^**********^****** 

2 REM * * 

3 REM * Dl- RECCI ONES INICI ALES/ * 

4 REM * NUMEROS DE LINEA BASIC * 

5 REM * * 

6 REM ^**************************** 

10 A=10 

20 B=30 
30 C=7.5 
40 F=A*B 
50 G=B/C 
60 H=C-A 
70 PRINT F,G,H 

100 T=PEEK(136)+PEEK(137)*256 
110 ZN=PEEK(T)+PEEK(T+1)*256 
120 IF ZN>32767 THEN END 

130 PRINT M LINEA DE BASIC # M ;ZN;" TIENE DIRECCION":? "DE 
I NIC 10 M ;T:? 

140 T=T+PEEK(T+2) 

84 

150 GOTO 110 



10 a 70: Contlene el sustltuto de un programa. 

100: Calcula el valor num^rlco del puntero STMTAB. 

110: Determlna el ndmero de Ifnea ZN a partlr de los bytes 

0 y 1 de la prfmera ITnea BASIC convert I da en forma token. 

130: El nOmero de Ifnea ZN y la dlrecc!6n In I cl a I T se 

muestran en pantalla. TambI6n puede Introduclr un LPRINT si 
desea tener la vls!6n comp Ieta por escrlto. 

140: Ahora se utlllza el tercer byte (T+2) para hallar la 

dlreccI6n In I cl a I de la slgulente Ifnea BASIC 

150: y se puede procesar la Ifnea slgulente. 


Una vez anallzado todo este embrollo, ya no presenta gran 
dlflcultad escrlblr una rutlna para poder camblar los 
ndmeros de Ifnea. Para ello solo hace falta buscar los bytes 
cero y uno de cada Ifnea de lnstruccI6n y deposltar el nuevo 
nGmero de Ifnea deseado: 


0 REM ADR]37.BEC 

1 REM ^**************************** 

2 REM * * 

3 REM * CAMBIO DEL NUMER0 DE LINEA * 

4 REM * DE BASIC. * 

5 REM * * 

6 REM ****************************** 

10 A=25 

20 B=7.5 
30 C=17 
40 F=A/B 
50 G=B*C 
60 H=C-A 
70 PRINT F,G,H 

1000 ZN=500:SW=25:Z=PEEK(136)+PEEKU 37)*256 
30000 H1 = I NT(ZN/256):P0KE Z,ZN-HI*256:P0KE 
Z+1,HI:ZN=ZN+SW:Z=Z+PEEK(Z+2):G0T0 30000 


85 



10 a 70: Contlene el programa coneJMIo de Indlas. 

j 

1000: ZN toma el primer nGmero de ITnea y SW la longi+lud 
de paso de la numeracion. Z calcula el puntero que apunta 
hacia la primera ITnea BASIC. 

30000: - ~En esta ITnea se efectua la convers 16n proplamente 
dicha. HI calcula de ZN la parte del byte HI. Despues se 
coIoca con POKE el resto del byte L0 (ZN-HI*256) en la 
dlreccI6n Z y en la dlrecclon Z+1 el valor del byte HI. El 
pr6x!mo paso conslste en incrementar el numero de ITnea con 
el valor de la longltud de paso SW, obtenlendo asT el 
prfiximo nGmero de ITnea. Ahora se cambla el puntero Z por el 
valor del offset (PEEKCY+2)). FInalmente se reallza el salto 
hacia 30000 para tratar la slgulente ITnea BASIC. 

El programa flnallza con un mensaje de error. Cuando se haya 
efectuado el dltlmo camblo de ndmero que corresponde a la 
ITnea 30000, GOTO ya no encontrara nlnguna ITnea. SI escribe 
ahora un LIST sin varlar los velores Indlcados, ver£ que la 
Gltlma ITnea tTene ahora el nGmero 850. 

AI deflnlr los valores de ZN y SW debe tener la precauclon 
de no sobrepasar el mGxlmo nGmero de ITnea admTtldo (32767). 
Al confecdonar twa utNfdad renumber es acorrsejabie 
comprobar esta condlclfin, porque no slempre se puede 
apreeter hasta ^u6 nGmero de ITnea \ legarG el programa 
renumerado. 



Con el camb4o de ndmeros de ITnea tambldn podrS 4roped Ir que 
'■se real Ice un Hstado de su programa. Una vez escrlto en 
limp I o -el programa BASIC y almacenado en la memor4a en forma 
token, se aslgna un mlsmo ndmero a todas las Ifneas. Este 
proceso ocurre segdn el mlsmo prlnclplo que el anterior 
camblo de k>s numeros de Ifnea. 

Una vez escrlto el programa y reglstradas en orden correcto 
las Ifneas BASIC en la memorla, el ordenador ya no tlene en 
cuenta I os numeros de Ifnee. Incluso si todas las Ifneas 
BASIC tlenen ei mlsmo ndmero, el programa contlnOa 
ofreclendo resultados correctos. TambISn podrS grabarse y 
cargarse con norma]Idad utlllzando SAVE y LOAD. Una vez 
almacenado en la memorla tambI6n podrS emltirse su llstado 
en la pantalla. S6lo si se almacena con LIST en un 
per I ter Ico y se vuelve a cargar despu6s, lo unlco que queda 
de todo el programa es la ultima Ifnea. 


El slgulente programa Iguala todas las Ifneas: 


0 REM AER137X.BEC 

1 REM 

2 REM * * 

3 REM * DESTRUIR NUMEROS DE LINEA * 

4 REM * * 

5 -REM ** K tt K IM HHHHHHHHHfr 

10 A=25 
^ 20 B=7„5 
30 C=J 7 
40 

50 G=fe*C 
60 H=C-A 
70 PRINT F,G,H 

1000 Z=PEEK(136)+PEEK(137)*256 

30000 POKE Z,244:POKE Z+1,1:Z=Z+PEEK(Z+2):G0T0 30000 
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10 a 70: Con+Ienen el programa postlzo. 

1000: De+ermlna el puntero STMTAB. 

30000: Cambla todos Ios ndmeros de Ifnea a 500 (244 + 

1*256). Naturalmente, usted puede aslgnarles cualquler valor 
admit I do como tal, por ejemplo Incluso el ndmero 0. SI se 
aslgna un ndmero que sobrepase el valor permitldo, por 
ejemplo L0=255 y HI=255, la renumeracI6n se efectda sin 
nlngdn error, despldI6ndose con ello el programa. Esta es 
una forma excluslva de borrar un programa. 


88 



138,139 


S8A, S8B 


STNCUR 


Puntero hacia la instrucclon BASIC que se est£ ejecutando. 
Es utllizado para acceder a los token de una ITnea BASIC que 
se es+3 procesando. Cuando BASIC esta esperando que se 
efectue una en+rada, este puntero apunta hacia la ITnea de 
entrada directa (32768), abrlendo asT la poslbllldad de 
proteger el programa de manera especial: 


0 REM ADR138.BEC 

I nn I UUWWtfWMWWWUWUUUMWWWWUWMUUUWUWU 

p |V| *va n a w ww n ww™ 

2 REM * * 

3 REM * PROTECCION DE LIST CON RUN * 

4 REM * * 

32766 POKE PEEK(138)+PEEK(139)*256+2,0:SAVE "DzNOMBRE 
FICHERO .EXT 11 : NEW 

32767 REM SE ARRANCA CON GOTO 32766 


32766: Anada esta Instrucclon como ultima ITnea a su 
programa y grabelo con el comando GOTO 32766. Sin embargo, 
antes de almacenar el programa con SAVE, puede evltar el 
salto hacia atrSs a partir de la ITnea de entrada dlrecta 
con ayuda de STMCUR. Entonces se almacena el programa en 
forma de token, o sea que se guardan todos los punteros 
-incluso STMCUR- con su valor actual. Despues se borra el 
programa con NEW. 

Esta protecclon tamblen tunc Iona con el cassette. Sustltuya 
simplemente por "$ME n C :". jPero culdado! Antes de crear una 
versi6n proteglda de su programa segun este m£todo, es 
aconsejable asegurarse una versI6n no proteglda del mlsmo, 
ya que se borra el programa fuente almacenado en la memoria 
de! ordenador. 

Puesto que el programa ha si do almacenado con SAVE, s6lo 
podra cargarse con LOAD. Despu6s de la entrada en modo 
dlrecto de LOAD 11 ..." ya no se podra efectuar nlnguna otra 
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entrada dlrecta, o sea ni LIST nl tampoco RUN. Sin embargo, 
l©s programas grabados con SAVE pueden ser cargados con 
RUN"D:nombre de flchero.ext" o blen RU^'C": y ejecutados 
InmedIatamente. Esto slgniflca que el programa puede 
funclonar Igual, pero el usuarlo no puede hacer nlngtin 
listado del mlsmo ya que se es+2 ejecu+ando. 

Sin embargo, para consegulr una protecclon eflcaz debe 
cumpllrse la condlclon de que el usuarlo no tenga nunca. la 
oportunldad de escrlblr un comando BASIC, LIST o cualquler 
otro. Para e # llo hay que consegulr que el programa sea 
absolutamente Impermeable. No puede contener nlngun falio 
que provoque una Interrupclon del mlsmo con un mensaje de 
ERROR, porque entonces sera poslble escrlblr cualquler 
comando. 

En STOPLN (186,187 = $BA,$BB) le mostrare la manera de 
asegurar un programa de manera absolutamente Infalible 
contra las Interrupclones por ERROR. 

Ademas hay que bloquear RESET y BREAK para.evitar que el 
usuarlo Interrumpa la ejecucI6n del programa. La ••lanera de 
consegulr esto ya se ha expllcado anterlormente. De hecho, 
si usted protege su programa segtin el metodo antes 
presentado, no es necesarlo tomar nlnguna medlda adlcional. 
Sin embargo, y para prevenir cualquler eventual I dad, puede 
camblar ademis algGn que otro puntero y, por ejemplo, 
sustltulr todas las variables por RETURN. 

Con todo esto usted ya dispone de una buena protecci6n del 
programa. A! menos para uso casero. Aun y ast puede copiarse 
un programa protegldo de esta forma, y un profeslonal no 
tendr£ que romperse demaslado la cabeza para InvaIldar todas 
estas graclosas medldas de segurldad. La verdadera 
protecclon del software se efectua en otros campos de 
bataila. 

Pero ya que estamos ocupados en juegos Infantlles, le 
presentamos otro metodo que slrve para transportar mens®jes 
secre+os llamado ''programa BASIG como Jwjz6n muerto' 1 . 


90 



Para ello necesltarfi un programa lo mSs Inofenslvo poslble, 
Introduclendo en algdn lugar una Ifnea REM (o tamblSn 
varlas) que con+enga su mensaje secreto: 


0 REM ADR138S.BEC 

1 REM * **** ** ** ****4HH*************** 

2 REM * * 

3 REM * MENSAJE SECRETO PALABRA * 

4 REM * CLAVE f * 

3 nrU MWWWMWUMW WliWMWWWUMWVMMMMUWWXUM 

100 REM PROGRAMA 

200 REM PROGRAMA 

300 REM PROGRAMA 

400 REM GUDRUN, TE QUIER0 

500 REM PROGRAMA 

600 REM PROGRAMA 

700 REM PROGRAMA 

800 PRINT "PARA C0MENZAR UN PART IDO NUEVO," 

810 PRINT :PR I NT "POR FAVOR PULSE<START>-" 

820 IF PEEK(53279)=6 THEN RUN 

830 IF PEEK(53279)=1 THEN GRAPHICS 0:G0T0 1000 

840 GOTO 820 

1000 PRINT CHR$(125)SPRINT :PRINT "DESPUES DE INTRODUCIR LA 
PALABRA CLAVE" 

1010 PRINT :PR INT "SE GRABA EN EL DISKETTE UNA VERSION" 

1020 PRINT :PR I NT "DESPROTEGIDA DEL PROGRAMA" 

1030 PRINT SPRINT SPRINT "EL PROGRAMA SE CARGA CON" 

1040 PRINT "ENTRE";CHR$(34);"D:CIA.KGB";CHR$(34) 

1050 DIM CW$(5) 

1060 TRAP 1060 
1070 INPUT CW$ 

1080 IF CW$="QRYXT" THEN LIST "D:CIA.KGB",0,1999 
1090 GOTO 1060 

20000 POKE PEEK(138)+PEEK(139)*256+2,0:SAVE 
"D:BOTSCHFT.MAD":NEW 


4 
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100 a 700: Represen+an el programa Inocente -qulzas sea un 
juego- que I leva el mensaje discre+o en la Ifnea 400, 

800 y 810: El programa final Iza con !a opc!6n de comenzar 
otra parti da pulsando START, 

820: AI pulsar la tec I a START, el programa se In Inc I a 

nuevamente con RUN, 

830: Solamente el receptor autorlzado sabe que no debe 

pulsar START n! desconectar el ordenador al Ilegar a este 
punto, slno pulsar OPTION y SELECT slmuItcineamenta, saltando 
de esta forma a la ITnea 1000, 

840: FinalIza el bucle de lectura, 

1000 a 1050: Aquf comlenza la segunda rutlna de protecc!6n, 
pldlendo la entrada de una palabra clave, Realmente, este 
programa se llmlta a comprobar s6lo la contrasena entrada, 
Como es natural, en este punto pueden preverse con un poco 
de fantasfa, todo un con junto de medldas de protecc!6n 
adlclonales. Se podrfa borrar todo el programa, por ejemplo, 
al detectar una contras^fia errSnea (NEW), 

1060: Hay que proteger la entrada contra errores de entrada 
(quizes premedltados). 

1080: En raso de acertar la contrasena correcta, se graba 

el programa con LIST en el diskette, sin almacenar tampoco 
la ultima Ifnea que contlene la rutlna de proteccton. Por 
supuesto tamblen funclona de Igual manera para el cassette, 

2000: Aquf se encuentra la proteccI6n LIST/LOAD. Usted 

tendrS que grabar, pues, este programa haclendo GOTO 20000 
antes de envlarlo a su amada con el mensaje destlnado tan 
solo a sus ojos. 
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140,141 


$8C,$8D 


STARP 


Pun+ero had a el primer byte de la tab I a de las variables de 
campo (strings y arrays). Los arrays se almacenan con el 
formato de 6 bytes-BCD. ^Esto qulere declr que a I 
DlMensIonar una variable con (9,9), se ocupan pues 10 por 10 
por 6, o sea 600 bytes! A dlferencla de ello, Ios strings 
solo ocupan un byte por cada elemento, o sea DIMG$(20) ocupa 
20 bytes. 

A menudo puede ahorrarse mucha memorla, deflnlendo como 
strings I os ndmeros que s6lo deben mostrarse con PRINT, en 
vez de hacerlo como valores numSrfcos. El slgulente programa 
le muestra un ejemplo: 

0 REM ADR140.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * US0 DE STRINGS EN LUGAR * 

4 REM * EN LUGAR DE ARRAYS * 

5 REM * * 

6 REM ****************************** 

10 DIM A(10),Z$(20) 

20 A(0)=9:A(1)=11:A(2)=1984:A(3)=140 
30 Z$ =,, 09111984ADR140” 

40 ? A(0); ,, . ,, ;A( 1);”. ,, ;A(2);”i ,, ;A(3) 

50 ? :? Z$(1,2); ,, . ,, ;Z$(3,4); ,, . ,, ;Z$(5,8); ,r : ";Z$(9,14) 


*********************************************************** 

* jAtenclon! LTnea 30 contlene pseudo-caracteres grSflcos. * 
*********************************************************** 


10: Muchos programadores Inexpertos DIMensIonan ademas 

arrays y strings como provlslones.. 
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20: A(0) a A(3) toman aquf nflmeros que slrven para Indlcar 
una fecha o un ntfmero de ldentlflcac!6n. La memorla efectlva 
necesarla para ello es de 4 por 6 = 24 bytes. 

30: Todos los caracteres necesarlos se aslgnan a un string. 
La memorla necesarla es de catorce bytes, a pesar de que 
ademSs contenga InformacI6n adlclonal. 

40: La fecha y el ndmero de I dent IfIcaclSn se muestran con 
PRINT. 

50: AquT se conslgue la mlsma indlcac!6n con partes del 
string. Un valor num6rlco no puede estar precedldo de 0. La 
!ndlcac!6n del dfa 09 (en vez de 9 solamente) es vallda como 
string y, tal como Indlca el nGmero de IdentlfIcacl6n, se 
pueden mezclar fScIlmente clfras y letras. Puesto que los 
strings tamblSn pueden convertlrse hasta clerto punto en 
valores numSrlcos, utlllzando el comando VAL del BASIC, 
tambISn pueden efectuarse cSleu I os con los valores 
almacenados de esta forma. 

Echemos ahora un vlstazo a la tab I a de las variables de 
campo: 


0 REM ADR140A.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * US0 DE STRINGS EN LUGAR * 

4 REM * DE ARRAYS * 

5 REM * * 

6 REM ****************************** 

10 DIM A(9),Z$(20) 

20 REM FOR J=0 TO 9:A:A(J)=0:NEXT J 
30 REM Z$=" " 

40 A(0)=9:A(1)=11:A(2)=1984:A(3)=140 
50 Z$="0911184 ADR 140" 

60 PRINT A(0A(1A(2);A(3) 

70 PRINT :PR I NT Z$(1,2); M .";Z$(3,4);".";Z$(5,8);".";Z$(9,14) 
100 PRINT CHR$(125) 

110 SP=PEEK(140)+PEEK(141)*256 
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120 FOR J=0 TO 9 

130 FOR 1=0 TO 5 

140 PRINT PEEKCSP+J*6+1); 11 

150 NEXT I 

160 PRINT 

170 NEXT J 

200 FOR J=60 TO 79 

210 PRINT PEEK(SP+J);” 

220 NEXT J 
230 PRINT 

240 FOR J=60 TO 73 

250 PRINT CHR$(PEEK(SP+J)); 

260 NEXT J 


10 a 70: Contlenen el programa que ya hemos expllcado 

antes. 

100: LImpla la pantalla. 

110: Se calcula la dIrecc!on InIc!a I de la tab I a de strings 
y arrays con ayuda del puntero STARP. 

120: Lee los bytes de las dlez variables A. 

130:: Lee los sels bytes de cada variable A. 

140: Muestra con PRINT los bytes de una variable A 

separados por espaclos Intermedlos. 

160: Empleza con la slgulente variable A en una nueva 

Ifnea, a fIn de que los sels bytes se encuerttren slempre uno 
debajo de otro. 

200: Puesto que el array A ocupa 60 bytes, el string Z 

tlene valores (ATASCII) de 60 a 73. 

210: Efectda los PEEK y los PRINT de estos valores. 
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Ejecute el programa con RUN y vera que la tab I a se ha 
convertido en un Inflerno de variables que han si do 

DIMenslonadas, pero que todavTa no han recibldo ningun 
valor* Esto puede conduclr a errores fatales en los arrays. 

Borre el REM de las ITneas 20 y 30, sustituya el 73 por 79 
en ITnea 240 y vuelva a ejecutar el programa. La tab I a tlene 
ahora un aspecto limpio y pulido. Los elementos del array a 
los que todavfa no se habTan asignado valores se han 
rellenado con ceros. En la ITnea 30 se habTa I lenado el 
string con una secuencia de espacios y corazones. Usted 
puede ver pues, que los elementos de un string son 
depositados con formato ATASCM, siendo 32 el de los 
espacios y 0 el de los corazones. 

Los valores de arrays y string tamblen pueden colocarse en 
la tab I a dTrectamente con POKE, siendo necesario saber en 
que luga»“ se encuentra la variable en cuestlon. Los 

elementos del string se anotan pues en formato ATASCII. Los 
valores numerlcos se registrar! en formato de 6 bytes BCD. 
BCD (binary coded decimal) codiflca cada una de las cifras 
de un valor numerico en forma blnaria. Esto requlere mucha 
memoria y es mas complicado a partir de las operaclones de 
calculo, empleando pues mas tlempo en ello, pero tiene la 
ventaja de ser mucho mas exacto que el metodo del numero 
entero. 

El byte 0 de una constante BCD toma en bit 7 el signo 

(activado no activado + ) y en los bits 6 a 0 el exponente 

de la base 100. Hay un exponente positivo cuando los bits 6 
a 0 contlenen un valor decimal igual o mayor que 64, o sea 
que el exponente tiene la misma magnitud que la diferencla 
entre dicho valor y 64. AsT pues, el valor 64 indica que el 
exponente vale 0 (100 elevado a 0 = 1, el nGmero se 
encuentra entre 0 y 99); 65 indica que el exponente vale 1 
(numero entre 0 y 9999), etc. Los valores menores que 64 
Indlcan los correspond Ientes valores negativos, o sea las 
cifras declmales. 
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A I os clnco bytes restantes se les asfgnan las clfras que 
componen el nijmero* Para ello se anota cada cifra codlflcada 
de forma blnaria en un nibble. SI la variable tlene por 
ejemplo el valor -12, el byte 0 tendrS el valor 192 (128+64) 
y el primer byte recoge el 12. El nibble superior toma el 1 
en su bit Inferior (1 decimal = 0001 blnarlo); el nibble 
Inferior toma el 2 (2 decimal = 0010 blnarlo). 


SI el ndmero a anotar es 78, el byte 0 serS 64, el 7 es 
colocado como 0111 en el nibble superior (equlvale a 7 en 
notaclon blnaria) y el 8 como 1000 en el nibble inferior: 


NUMER0S DEC IMALES C0DIFICAD0S EN BINARI0: 


Cifra decimal 



7 


8 

Bits 

0 

1 

mm 

1 

1 

0 

0 

0 

NGmero del bit 

7 

6 

5 

4 

3 

2 

1 

0 

Valor posIclonal 

128 

64 

32 

16 

8 

4 

2 

1 
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En el slgulen+e programs ejemplo se define el valor de un 
elemen+o del array dlrec+amen+e en la tabla. El nGmero toma 
la suces!6n de clfras 1234567890 y el punto decimal es 
sltuado por el byte del exponente entre las posIclones sexta 
y s6ptlma. El 0 de I a cuarta clfra decimal no aparece en 
pantalla: 


0 REM ADR141.BEC 

1 REM *******^*****^************** 

2 REM * * 

3 REM * ALTERAR VARIABLES DIM * 

4 REM * * 

5 REM ********^******^****h******** 
10 DIM Z(9) 

20 FOR J=0 TO 9:Z(J)=0:NEXT J 
30 SP=PEEK(140)+PEEK(141)*256 
40 POKE SP,66:REM =100~2 
50 POKE SP+1,18:REM =1/2 
60 POKE SP+2,52:REM =3/4 
70 POKE SP+3,86:REM =5/6 
80 POKE SP+4,120:REM =7/8 
90 POKE SP+5,144:REM =9/0 
100 PRINT Z(0)SPRINT SPRINT 
110 FOR J=0 TO 5 
120 PRINT PEEKCSP+J);" 

130 NEXT J 


10: El tamaflo del DIMenslonado es arbltrarlo. 

20: Se aslgna el valor 0 a todos I os elementos del array, 

medlda que deberfa convertlrse en rutlnarla despuSs de cada 
DIMenslonado. 

30: Se de+ermlna la dlrecclon had a la cual apunta STARP. 
40: El byte cero recoge el exponente y el slgno. 
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50: El primer byte almacena las clfras 1 y 2 en codigo 

btnarlo (0001/0010). De esta forma el byte toma valor 
decimal 18. 

60: El segundo byte recoge las clfras 3 y 4 (0011/0100 = 

52). 

70: El tercero almacena el 5 y el 6 (0101/0110 = 86). 

80: El cuarto byte recoge las clfras 7 y 8 (0111/1000 = 

120 ). 

90: El qulnto y dltimo byte se hace cargo de las clfras 9 y 
0 (1001/0000 = 144). 

100: Muestra el ndmero decimal. 

110 a 130: Muestran el sexto byte de datos de la 
correspondlente constante BCD. 


142,143 $8E,S8F RUNSTK 

Dlrecclon del stack de runtime (pi la para tlempo de 
ejecucI6n); contlene notas sobre todas las instrucclones 
G0SUB (cuatro bytes para cada uno) y F0R-NEXT (dlecisels 
bytes para cada uno) que se estan procesando en este 
momento. 

Una Inscripclon GOSUB contlene en el byte cero un 0 para 
indicar "GOSUB”, en byte 1 y 2 el ndmero de ITnea que ha 
11amado al GOSUB, repartldo como valor entero en L0 y HI, y 
el dltimo byte contiene el offset que se encuentra en la 
ITnea para que RETURN pueda volver y ejecutar la slgulente 
InstruccI6n. 
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Una inscrlpclon FOR-NEXT recoge en I os bytes 0 a 5 el valor 
final de las variables contadoras, o sea el valor Indlcado 
detras de TO en forma de constante BCD; los bytes 6 a II 
contienen la Indlcaclon STEP, Igualmente en forma BCD; los 
bytes 12 y 13 contienen el ntimero de Ifnea con el comando 
FOR y el Gltlmo, el byte 15, contlene el offset de Ifnea de 
la Instrucclon FOR. 

Medlante RUNSTK se marca a I mlsmo tlempo el final de la 
tab I a de las variables de campo. 


144,145 $90,$91 MEMTOP 

Apunta hacla el final de la memorla ocupada por un programa 
BASIC. El comando FRE(O) calcula la memorla que queda 
dlsponlble entre MEMTOP y el prlnclplo del display list y de 
la memorla de pantalla, restando para ello.los respectlvos 
punteros SDLSTL y MEMTOP. 

SI se pretende llmltar espacio de memorla, hay que 
reglstretrlo aquf y en RAMTOP (106 = $6A). 


186,187 $BA,$BB STOPLN 

Almacena el numero de Ifnea donde se ha producldo una 
Interrupclon del programa provocada por ERROR-, STOP, TRAP o 
pul sac Ion de la tec I a BREAK. 

Con este reglstro se puede ImpedIr cualquler Interrupclon 
provocada por un error del programa, por ejemplo en lo que a 
protecclon de software se ref Iere, o porque es la forma mSs 
simple de saltarse una Interrupclon del programa a causa de 
valores numerlcos Incorrectos. 
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En el programs slgulente se DIMensIona una variable 
doblemente Indexada cuyo elemento se Incrementa a 
contlnuaclon en valores aleatorlos* Puesto que estos valores 
aleatorlos pueden ser mayores que la dlmens!6n prevista del 
array, se emplea el truco TRAP: 


0 REM ADR186.BEC 

1 REM **♦»♦♦*♦»♦»♦»♦»♦** » »»*»»»**»»» 

2 REM * * 

3 REM * PROTECCI ON DE ERROR * 

4 REM * * 

5 REM ^**************************** 

9 TRAP 9:F=F+1:G0T0 PEEK(186)+PEEK(187)*256+10 

10 REM DIRECCION FINAL DE BIFURCACION TRAP EN EL PRIMER PASO 
100 DIM M(6,6):FOR 1=0 TO 6:F0R J=0 TO 6:M(J,I)=0:NEXT J:NEXT 
I 

110 X=INT(RND(0)*6) 

120 Y =I NT(RND(0)*6) 

130 AL=4-X:AR=4+X 
140 BL=4-Y:BR=4+Y 
150 M(AL,BL)=M(AL,BL)+1 
160 M(AR,BL)=M(AR,BL)+1 
170 M(AR,BR)=M(AR,BR)+1 
180 M(AL,BR)=M(AL,BR)+1 
190 Z=Z+1:IF Z<50 THEN 110 
200 FOR J=0 TO 6 , 

210 FOR 1=0 TO 6:PR I NT M(J,I);" ";:NEXT I:PR I NT 
220 NEXT J 

230 PRINT :PR I NT :PR I NT F 
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9: Se actlva el TRAP y se blfurca hacla 61, es declr que 
cada vez que el TRAP en+ra en accI6n, el programa Ilega a 
esta ITnea en la que el TRAP se renueva. La Instruccifin GOTO 
que le slgue lee en el puntero STOPLN la Ifnea donde se ha 
efectuado el TRAP, suma 10 al nUmero de 6sta y despu6s 
conduce el programa hacla la Ifnea resultan+e. 

Sin embargo, este proceso solo funclona si el programa 
entero esta numerado de 10 en 10 y sl en la Ultima Ifnea no 
es poslble que se produzca nlngCn error, ya que en caso 
contrarlo la mlsma Instrucclon GOTO generarfa un error y el 
programa no podrfa sallr de dlcha Ifnea. 

SI queremos proteger software, una Ifnea de este tlpo 
proporclona la absoluta segurldad de que el ususarlo del 
programa sea Incapaz de abrlrlo utlllzando alguna entrada 
err6nea. Tampoco tlene Importancla que el programa pueda 
contlnuar en a I gun lugar despu6s del TRAP, porque 6ste 
volverfa a InterceptarIo de todos modos... 

Tamblen podrfa admltlrse la forma slgulente: 

100 TRAP 20000 

20000 NEW:L0AD”D:nombre de fIchero.ext" 

En este programa ejemplo la variable F cuenta por cur Iosldad 
la cant I dad de mensajes de error que se han podldo evltar 
utlllzando el truco del TRAP. 


10: Cuando el programa se estS ejecutando por prlmera vez, 
el puntero STOPLN tlene valor 0, procesSndose un GOTO 10 en 
la Ifnea 9. Esto exlge que el programa contenga la Ifnea 10, 
aunque solo sea una Ifnea REM. 

100: La variable del array M toma la DIMensISn de slete por 
slete y se aslgna el valor 0 a todos sus elementos. 
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110 y 120: X e Y obtlenen valores alea+orlos en+re 0 y 5. 


130 y 140: Con ayuda de X e Y, las variables AL, AR, BL y 
BR toman algunos valores que no slrven como ndmeros de 
IdentlfIcacl6n para el array dlmenslonado* De utlllzarlos 
como tales en las Ifneas 

150 a 180: el resultado serS slempre el mensaje de error 
"cantldad llegal"* Serfa muy complfcado comprobar los 
valores Ilegales de X e Y medlante condlciones IF, 
©spec I a Imente en aquellos casos en que s6!o una de las 
variables sobrepasara el ITmlte admltldo, puesto que se 
Incrementa Incluso el valor legal por el que se puede 
acceder a un determlnado elemento del array* 

Con la estructura del TRAP de la ITnea 9 se facfllta la 
soluclon del problema* SI se tntenta llamar a un elemento 
I legal del array, el correspond lent© mensaje de error 
conduce el programa a la Ifnea slgulente* Esto sign I flea 
que, lndependlentemente del ndmero aleatorlo que le permlte 
acceder a un determlnado elemento de la variable M 
doblemente Indexada, M tambl§n consIderarS el caso en que el 
ndmero aleatorlo no slrva, con lo que el programa seguIrS a 
pesar de ello* 

190: El programa de prueba se procesa clncuenta veces. 

200 a 220: A contlnuacl6n se muestra la variable de campo, 
y en I a Ifnea 

230: la variable F nos Informa sobre la cantldad de veces 
que el ndmero aleatorlo ha fa 11 ado* 
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195 


$C3 


ERRSAVE 


Contlene el ntimero del error que ha condueI do a un STOP o 
TRAP. 

201 $C9 PTABW 

Determina la cantldad de columnas entre tabulaclones, 
ordenadas en una Instrucclon PRINT medlante una coma, es 
declr la dlstancla entre el ultimo caracter del PRINT 
precedente y el primero del slgulente. Esta func!6n no 
depende de la tec I a TAB. 

El valor default es 10. El mfnlmo valor admltldo es 3. Se 
suma el valor 2 a I valor que ha si do POKEado despu^s de 
PTABW; o sea POKE 201,1 produce una longltud de sal to 
tabulador de tres columnas. El valor mSxImo admltldo es 255, 
que corresponde a una dlstancla de 257 columnas. 

SI se escribe un-0 despues de PTABW, el slstema se "cuelga" 
con la primera coma de una InstruccI6n PRINT y s6!o puede 
recuperarse con RESET. 


212-241 $D4-$F1 diverse 

Registro que se utiliza para operaciones de floating point 
(coma flotante). 


242 $F2 CIX 

Indice de caracteres. Offset del buffer de texto de entrada; 
apunta hacia el INBUFF. 
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243,244 


$F3, $F4 


INBUFF 


Apunta hacla el buffer de entrada de texto, es declr el 
buffer de entrada para Ifneas de programa del usuarlo. 


245-250 $F5-$FA ZTEMP1-3 

Reg Istro Intermedlo. 


251 $FB RADFLG 

Flag (IndentlfIcacI6n) para RADIanes (unldad de arcos) o DEG 
(grados). El valor default 0 hace que todas las fund ones 
trlgonom6trleas se procesen en rad lanes (base 100)* SI se 
sustltuye por 6 o se da la Instrued on BASIC DEG, se cambla 
a grados (base 360). 


256-511 $100-$IFF page 1 

Esta es la zona destlnada al stack (pi la) del OS, DOS y 
BASIC. Las Instrucclones en lenguaje mSqulna JSR y PHA y las 
Interrupclones provocan que Ios datos se escrlban en la 
paglna 1; RTS, PLA y RTI leen datos de la pSglna 1. 

En powerup o reset el puntero del stack apunta hacla la 
dlrecc!6n 511. Se escribe en el stack hasta bajar a 256. 
Cuando se produce su overflow, 6ste vuelve al 511. 


512,513 $200,$201 VDSLST 

Vector para el NMI (non-maskable Interrupt) display list 
interrupt (DLl). AquT se deposlta la d!recc!6n hacla la cual 
se debe saltar durante un DLl. 
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Los DLI se u+illzan para procesar otras tareas del programa 
durante Ios mlcrosegundos del blank horizontal, como por 
ejemplo crear una melodfa. Elio puede dar la Impresl6n de 
sucesos slmultSneos. 

En el DLI tambI6i se pueden modlflcar los yalores de los 
reglstros de col ores, el modo grSflco, etc*, lo que permite 
representar un color dIferente en cada Ifnea del modo, de 
manera que los 256 tonos de col ores poslbles puedan aparecer 
en la pantalla al mlsmo tlempo. 

El OS no utlllza nlngtin DLI. Es necesarlo que el usuarlo 
los deflna, escrlba y vectorlce. VDSLST se Inlclallza de tal 
forma que apunta had a 59315 ($E7B3). Para deflnlr un DLI, 
la 54286 ($D40E) debe ponerse prevlamente a 192 para que 
ANTIC pueda reconocer el request, y a cont!nuacl6n POKEar a 
512 (LO) y 513(Hl) la dlrecc!6n donde comlenza la rutlna en 
lenguaje m6qulna a procesar durante el DLI. En el display 
list debe actlvarse el bit 7 (+128) en la lnstrucc!6n de la 
ITnea del modo que precede a un DLI. SegGn el modo grSflco, 
el DLI dispone de 14 a 61 clclos de mSqulna. En primer lugar 
es necesarlo empujar los 6502 reglstros hacla el stack y 
flnallzar el DLI con un RTI. Puesto que el DLI se procesa en 
lenguaje mSquIna, los camblos deseados pueden POKEarse 
dlrectamente en los reglstros del hardware. Los camblos de 
los reglstros de sombra acceslbles a trav£s de BASIC s6lo 
son lefdos por el VBLANK. Por esta raz6n, los camblos de 
valores por ejemplo en los reglstros de col ores, se procesan 
6pt!camente a gran veloci dad, pero 6stos Inclden sobre la 
total I dad del contenldo de la pantalla. Sin embargo, un DLI 
permlte por ejemplo poner el reglstro de colores a 710 
(fondo en el modo GRAPHICS 0) o 140 (azul claro = azul 
celeste) y a 182 (verde claro) para el resto de la ventana 
graflca despu£s de algunas Ifneas de modo. 


106 



0 REM ADR512.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * DISPLAY LIST INTERRUPT DLI * 

4 REM * * 

5 REM ****************************** 

10 POKE 710,140:P0KE 712,0:P0KE 709,2 
20 X=PEEK(560)+PEEK(561)*256 

30 P=1536:F0R DLI=P TO P+10:READ B:POKE DLI,B:NEXT DLI 

40 DATA 72,169,182,141,10,212,141,24,208,104,64 

50 POKE 512,0:P0KE 513,6 

60 POKE 54286,192 

70 POKE X+6+J,130 

80 FOR 1=0 TO 300:NEXT I 

90 POKE X+6+J,2:J=J+1:IF J<2: THEN 70 

100 REM GOTO 100 
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10: Se POKEan los valores de los colores* El regfstro 172 
determIna el borde (0 = negro) en GRAPHICS 0, y el 709 la 
clari dad de los carac+eres* 

20: Calcula el puntero SDLSTL que apunta hacla el display 
11st. 

30: P es la dlrecclon tnlclal de la rutlna en lenguaje 
maqulna, que corresponde al prlnclplo de la paglna 6 (6*256 
=1536). En este lugar se encuentra por debajo del LOMEM una 
pequena zona del RAM de apllcaclones proteglda. El bucle 
F0R-NEXT lee en las cel das de memorla sltuadas detrSs de P 
los bytes de datos que forman la rutlna en lenguaje mSqulna. 

40: Es la rutlna en lenguaje maqulna. AdemSs de este m6todo 
para colocar en la memorla un programa en lenguaje maqulna 
en forma de bytes de datos, exlste la poslbllldad de 
colocarlo en un string. Los bytes de datos de esta ITnea 
podrTan convertlrse en strings medlante la Instrucclon: 

FOR J=0 TO 10:REAO A:B$(J,J)=CHR$(A):NEXT J 

De esta forma, la rutlna en lenguaje mSqulna se salvarfa en 
la tab I a de las variables de campo y se desplazarfa junto a 
la memorla en sus despIazamlentos Internos, lo que le evlta 
al usuarlo el tener que preocuparse en colocarla en algdn 
lugar protegldo contra escrlturas. El comando BASIC ADR(B$) 
puede fljar la dlrecclon In Ida I de un string en la tab I a de 
strings y arrays, y el comando BASIC USR pone el ordenador a 
trabajar: USR(ADR(B$)). 

50: El vector DLI se coloca en la pSglna 6 (L0=0, Hl=6). 

60: Los bits 7 y 6 deben estar actlvados (decimal 192) en 
el NMIEM de ANTIC (54286 = $D40E) para permltlr el DLI. 
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70: En el display list, el byte del comando ANTIC cambla de 
2 (correspondlente a una ITnea de GRAPHICS 0) a 130 (2+128 
correspond Iente a una ITnea con DLI de GRAPHICS 0), 

80: Un pequeflo descanso para la vista del usuarlo. 

90: El comando ANTIC vuelve a convertlrse en 2. A 
contlnuaclon se Incrementa J en 1, de manera que en la 
proxlma pasada se afiada el DLI en la ITnea slgulente. Elio 
produce el efecto de que la parte superior de la ventana 
grSflca (clelo) se extlenda lentamente, ITnea por ITnea del 
modo, hacla abajo, como si despegase un avion y se elevase 
hacla el clelo. 

SI no le gustan los colores (respetamos todos I os gustos) 
puede graduar el color del clelo con POKE 710,n; el del 
borde con POKE 712,n y la clari dad de los caracteres con 
POKE 709,m. Para n y m puede eleglr cualquler valor par 
entre 0 y 254, aunque para m s6lo son Interesantes los 
valores pares entre 0 y 14, puesto que Gnlcamente afectan a 
la clari dad. 

SI desea camblar el color despu^s del DLI, o sea en la parte 
Inferior de la ventana graflca, deberS modlflcar el 
correspondlente byte de datos de la rutlna en lenguaje 
mSquIna. Este corresponde al tercer valor num6rlco de la 
ITnea 40. Tambl6n en este caso s6lo se admlten valores 
pares. 

Puesto que solo exlste esta unlca dlreccl6n del vector de 
DLI, si se quleren ejecutar varlos DLI, el vector debe ser 
modlflcado por la propla rutlna DLI que le precede. Ademas 
se aconseja suprlmlr el cllc del teclado (reglstro 731 = 
2DB) o blen Impedlr las entradas por teclado, puesto que 
pueden produclrse lnterferenclas con el DLI, provocando las 
pertlnentes dIstorslones. 
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514,515 


$202,$203 


VPRCED 


Vector de la rutlna I OR para la Inierfase en serle. 


516,517 $204,$205 VINTER 

Vector de la rutlna I OR de la Interfase en serle. 


518,519 $206,$207 VBREAK 

Vector para el comando 6502 BRK ($00). (Esto no tlene nada 
que ver con la tec I a BREAK.) 


520,521 


$208,$209 VKEYBD 


Vector para la 
para provocar 
del keyboard 
IOR de tec I ado 


Interrupclon de teclado del POKEY. Se utfllza 
una Interrupclon a trav6s de cualqufer tec I a 
(ademas de BREAK). Inlclallza a 65470 (rutlna 
del OS). 


522,523 $20A,$20B VSERIN 

Vector del POKEY hacla la rutlna encargada de reclblr datos 
en serle. 


524,525 $20C,$20D VSEROR 

Vector del POKEY hacla la rutlna encargada de emltlr datos 
en serle. 
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>/ b , 52/ 


S20E,$20F 


VSEROC 


Vector del POKEY para final tzar una transference de datos 
en serle. 


528-533 $210-$215 VTIMR1,2,4 

r 

Vectores d© Interrupclon para I os timer 1, 2 y 4 (AUDF1, 2, 
4) del POKEY. Cuando el timer del POKEY ha llegado a 0, se 
produce un sal to hacla la d!reccI6n que apunta a I vector 
correspon dIente. 


534,535 $216,$217 VIMIRQ 

Vector principal de InterrupcISn IRQ# 


536,537 $218,$219 CDTMV1 

Timer 1 del slstema, que cada 1/50 segundo cuenta en sentldo 
decreclente hasta 0. Una vez Ilegado a 0 se efectfia un salto 
hacla la d!reccl6n memorlzada en el correspondlente vector 
CDTMA1 (550,551 = $226,$227). 

No es aconsejable usar el timer 1, puesto que lo utfllza el 
OS para las rutlnas I/O. 


538-545 $21 A-$221 CDTMV2-5 

Igual que CDTMV1. 
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546,547 


$222,$223 


VVBLKI 


Vector para una Interrupclon de VBLANK Inmedlata* Este 
puntero puede ser modlflcado para poder ejecutar rutlnas en 
lenguaje mSquIna de una longltud aproxlmada de 3*500 tlempos 
de mgqulna durante el blank vertical. 
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548,549 


$224,$225 


VVBLKD 


Puntero para una InterrupcISn del VBLANK retardada, que 
puede Ilegar a tener una longl+ud de 20*000 cfclos de 
maqulna. 

550,551 $226,$227 CDTMA1 

DIreccIon de salto para el timer 1 (CDTMV1). 

552,553 $228,$229 CDTMA2 

D!reccl6n de salto para el timer 2 (CDTMV2). 

554 $22A CDTMF3 

Flag (IdentlfIcacl6n) pare el timer 3 (CDTMV3) 

555 $22B SRTIMR 

Timer utlllzado para el . rebote del teclado* Provoca el 
retardo antes de actlvar la funcI6n de repetlclSn del 
teclado* 

Cada vez que se pulsa una tecla, este timer comlenza a 
partlr de 8* SI SRTIMR llega hasta 0 y la tecla todavfa se 
mantlene pulsada, el valor de la tecla pulsada pasa a CH 
(764 = $2FC) con una velocldad de repetlc!6n de 1/10 

segundos. 


556 $22C CDTMF4 

Flag para el timer 4 (CDTMV4). 
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557 


$22D 


INTEMP 


Reglstro Intermedlo u+Ulzado por la rutina SETVBL. 


558 $22E CDTMF5 

IdentlfIcacl6n (flag) para el timer (CDTMV5). 


559 $22F SDMCTL 


Reglstro de sombra de 54272. Control DMA (direct memory 
access = acceso dlrecto a la memorla) de ANTIC (vea tamblSn 
ap6ndlce grSflco player-missile). 


Bit 5 (32) 

Bit 4 (16) 

Bit 3 (8) 

BIT 2 (4) 

Bit 1 (2) 

Bit 0 (1) 


permlte que ANTIC recoja las Instrucclones de 
display list 

resoluc!6n de una Ifnea del player en el 
grSflco PM 

poslblllta player DMA 
poslblllta missile DMA 
*) anchura del dlspaly 
*) anchura del display 


*) Los bits 1 y 0 concretan la anchura de la pantalla de 
televlslfin que serS operada por ANTIC. 


Display de la anchura de bit 1 actlvado, bit 0 actlvado 
(deslgnado llteralmente por "palyfleid" o campo de juego, 
por su relacI6n con grSflco playei—missile). Un display 
ancho admlte 48 caracteres por Ifnea en GRAPHICS 0. Sin 
embargo, de esta forma se modi flea solamente la prop I a 
representacI6n, mlentras que el editor contlnGa trabajando 
con 40 caracteres por Ifnea. Esto signified que a I 11star un 
programa, por ejemplo, despu6s de ampllar el display 
actlvando los dos bits Infer lores, las Ifneas del mlsmo 
aparecerSn desplazadas por el valor desvlado. Asf pues, a I 
trabajar con una anchura de 48 caracteres, el editor empleza 
la lmpres!6n del primer carScter de la Ifnea slgulente en la 


114 



la lmpres!6n del primer carScter de la Ifnea slgulente en la 
poslclon 41, etc. 

Bit 1 actlvado, bit 0 desactlvado; da la anchura habitual de 
40 caracteres. 

Bit 1 desactlvado, bit 0 actlvado; corresponde a un estrecho 
campo de juego de 32 caracteres. En este caso, el editor 
Imprlme en las prlmeras ocho poslclones de la Ifnea 
slgulente Ios Gltlmos caracteres de la Ifnea anterior, y 
empleza en la novena poslclon con I 3 segunda Ifnea. 

Bit 1 desactlvado, bit 0 desactlvado; no hay display. 


Es pos lb I e desact.lvar com}. I etamente la sal Ida a pantalla a 
trav6s de ANTIC, colocando a 0 los bits 5, 1 y 0. Y puesto 
que con ello se descarga el slstema completo, algunos 
procesos se efectGan con mayor rapldez. Interrum}. lr la 
sallda a pantalla es especlalmente Interesante cuando se 
trata de reallzar calculos complejos, pero un programa que 
se slrve de ello, deberfa Informar prevlamente al usuarlo de 
que a contlnuacl6n se apagarS su pantalla por un momento, 
para que 6ste no crea que se trata de una dl:>torsl6n del 
televisor. 

La forma m3s fScII de hacerlo es PEEKeando en primer lugar 
el valor actual de la dlreccI6n 559 y guardarlo en una 
variable. DespuSs POKEar 0 a 559. Para volver a actlvar la 
pantalla, escrlba en SDMCTL el valor de las variables: POKE 
559, variable, asegurSndose de esta manera que despu6s de la 
desconexI6n este reglstro volverS a tener su valor antlguo. 
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La desconex!6n de la pan+alla tambl6n puede ser eflcaz 
cuando se crea una Imagen en un modo grSflco elevado, lo que 
puede tardar varlos mlnutos. SI desconecta antes el display, 
salva el grSflco en la memorla de pantalla y ademas vuelve a 
conectar en 559, el grSflco completo aparecera de golpe. Un 
m6todo aun m5s elegante ha si do presentado anterlormente con 
el programa ejemplo PAGING.BEC (SAVMSC 88,89 = $58,$59). 


560,561 $230,231 SDLSTL 

Reglstros de sombra de 54274 y 54275. Vector hacia el 
display list (DL). El DL se encuentra InmedIatamente del ante 
de la memorla de pantalla. Es un corto programa en lenguaje 
mSquIna que control a a ANTIC. Contlene Instrucclones sobre 
el lugar de la memorla donde se encuentran los datos de la 
Imagen y la forma de Interpretarlos. Exlsten comandos ANTIC 
para cada modo grSflco, para el DLI y para el scroll 
vertical y horizontal, asf como dos Instrucclones de salto 
(vea ap6ndlce display list). 


SI desea echar un vlstazo a I display list puede probar este 
programa: 
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0 REM ADR560.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * IMPRIMIR DISPLAY LIST * 

4 REM * * 

5 REM ^**************************** 

10 DIM D(201) 

20 PRINT CHR$(125) 

30 PRINT :PRINT "ENTRE POR FAVOR MODAL I DAD DE GRAF I COS" 

40 PRINT :PRI NT "VALORES DESDE 0 HASTA 11 (XL HASTA 15)" 

50 PRINT :PRINT "MODALIDADES DE GRAF ICO CON VENTANA":? :? "DE 
TEXTO +16" 

60 PRINT :PR I NT "Y PULSE <RETURN>" 

70 PRINT -.PRINT "-" 

100 INPUT G 
110 GRAPH ICS G 

120 DL=PEEK(560)+PEEK(561)*256 
130 FOR J=0 TO 201 
140 D(J)=PEEK(DL+J) 

150 Z=Z+1 

160 IF D(J)=65 THEN POP :GOTO 180 
170 NEXT J 

180 J=Z:D(J)=PEEK(DL+J) 

190 D(J+l)=PEEK(DL+J+1) 

200 GRAPHICS 0 

210 POKE 201,1:POKE 83,37 

220 FOR J=0 TO Z+1 

230 PRINT D(J), 

240 NEXT J 
250 GOTO 250 


10: Se aslgnan I os bytes de datos del DL a la variable de 

campo D# El DL mSs largo (GRAPHICS 8+16) tlene una longltud 
de 202 bytes. 

20 a 70: Muestra el texto con las Instrucclones# 

100: Entradas para G entre 0 y 31 conducen a resultados 

log Icos# El programa no estS protegldo contra entradas 
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110: Se conecta el modo grSflco escogldo pen" el usuarlo. 
120: DL toma las dlrecclones Inlclales del display list, 
130: Se aslgna el valor mSxlmo a I contador del bucle. 

140: Un byte de datos del DL es PEEKeado y anotado en D(n). 
150: Z cuenta los bytes lefdos. 

160: 65 (JVB, jump at vertical blank = salto hacla el blank 
vertical) es la Gltlma lnstruccJ6n del DL al que le slgue 
so I amente el destlno del salto (dos bytes). Cuando se 
encuentre un 65 en la lectura, el programa se desplde con »rt 
POP en el bucle F0R-NEXT y proslgue la ejecuclSn en la Ifnea 

180: donde se lee el penGItlmo byte y en ITnea 

190: leerS el dltlmo byte del DL. 

200: Se conecta GRAPHICS 0 para la sal Ida de los datos de 

DL. 

210: Se define la longltud de PRINT-TAB (PTABW) en 1, o sea 
en tres columnas, y se marca el margen derecho (RMARGN) en 
37. 

220 a 240: Imprlmen el byte de datos del DL en la pantalla. 

250: Evlta que el programa final Ice con READY. Con este 

formato, los datos de GRAPHICS 0 llenan la totalIdad de la 
pantalla. De finalJzar el programa con READY, se produclrta 
el scroll de las dos Ifneas super lores, las cuales 
desaparecerfan de la pantalla. Por esta razon usted mlsmo 
tendrS que finalIzar el programa utlIIzando BREAK. 

El slgnlflcado de los dlversos valores numerlcos en DL se 
comenta en el apSndlce display list. 
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562 


$232 


SSKCTL 


Reglstro de sombra de 53775. Control de la In+erfase ©n 
serle. 

« 

563 $233 LCOUNT 

Con+ador d© bytes para rutlnas de carga (loader). 


564 $234 LPENH 

Reglstro de sombra de 54284. PosIcl6n horizontal del ISplz 

6ptIco. 

565 $235 LPENV 

Reglstro de sombra de 54285. Posld6n vertical del ISpIz 

6ptIco (IIghtpen). Los valores para las posI clones del ISplz 
6ptlco corresponden a los mlsmos que aparecen en el grSflco 
PM; se desvfan de los valores de columnas y ITneas que se 
dan habltualmente en los modos grSflcos. 


566,567 $237 BRKKY 

Vector para la lnterrupc!6n a trav6s de la tec I a BREAK. 
Puede ser reactlvado para blfurcarse hacla una rutlna de 
apI leadones programada y tratar la lnterrupc6n de la tec I a 
BREAK para borrar, por ejemplo, el programa de la memorla o 
Inlclar un nuevo proceso de carga al actlvar la tecla BREAK 
en el Interior de una protecc!6n de software. 


568,569 


$238,$239 


I Ibre 



S23A-J23F 


570-575 

Variables auxlliares Internas utlllzadas para procesar datos 
en serle• 


576-579 S240-S243 

Variables auxlliares Internas utlllzadas para el booting del 
diskette. 


580 $244 COLDST 

I dent Iflcacl6n (flag) del arranque en frTo. Cualquler valor 
excepto 0 Indlca que se estS procesando la rutlna de 
InlclalIzaclon del powerup. SI COLDST tlene valor 0, RESET 
conduce a un arranque en callente. 


623 


$26F GPRIOR 


Reglstro de sombra de 53275. Determlna la prior!dad de 
representac16n de I os dlversos elementos de la Imagen en 
gratlcos PM cuando 6stos se superponen. Esto produce un 
efecto 6ptIco de delante-atras. Los player que se superponen 
pueden adqulrlr un tercer color y los cuatro proyectlles 
(missiles) pueden utlllzarse como jugador (player) qulnto. 


(Abrevlaclones: P=jugador, PF=campo de juego, BAK=fondo y 

borde) 


Bit 7 
Bit 6 
Bit 5 
Bit 4 
Bit 3 
Bit 2 
Bit 1 
Bit 0 


(128) *) modo GITA 

(64) *) modo GITA 

(32) P superpuestos adquleren el tercer color 
(16) P qulnto en lugar de cuatro proyectlles 
(8) orden de prtorldad: PF 0-1, P 0-3, PF 2-3, BAK 

(4) orden de prlorldad: PF 0-3, P 0-3, BAK 

(2) orden de prlorldad: P 0-1, PF 0-3, P 2-3, BAK 

(1) orden de prlorldad: P 0-3, PF 0-3, BAK 
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*) Los bits 7 y 6 poslbllltan el modo GITA 9, 10 y 11. Estos 
modos graflcos utlllzan el mlsmo display list que GRAPHICS 
8, camblando slmplemente la InterpretacI6n de I os datos de 
pantalla. En lugar de representar en dos colores un bit por 
pixel, o sea 320 pixel por ITnea, en estos tres modos GITA 
se leen cuatro bits por pixel. Con ello se dlstlnguen un 
mcixlmo de dleclsels mat Ices dlferentes de col ores. Para 
llegar a la mlsma cantI dad de datos, cada pixel se 
representa cuatro veces mSs ancho, con lo que de esta forma 
se llena una Ifnea del modo con 80 pixel. 

Bit 7 desactlvado, bit 6 actlvado; GRAPHICS 9 (los pixel 
tlenen el mlsmo matlz, pero se admlten dleclsels gradaclones 
dlferentes de clarI dad). 

Bit 7 actlvado, bit 6 desactlvado; GRAPHICS 10 (se admlten 
nueve matIces de deflnlc!6n propla para los pixel, 
jdlsponlendo solo de nueve reglstros de colores!). 

Bit 7 actlvado, bit 6 actlvado; GRAPHICS 11( los pixel 
pueden tener cualqulera de los dleclsels colores estSndar, 
pero la clari dad es la mlsma para todos). 

SI el bit 5 estS actlvado, se crea un nuevo color aI 
superponerse los player 0 y 1 o los player 2 y 3. Los dos 
reglstros de col ores correspondIentes se enlazan medlante la 
operacI6n I6glca OR. Las superposlclones de otras 
combInaclones de player no dan un matlz nuevo. SI el bit 5 
estS desactlvado, la zona de la pantalla ocupada por dos 
jugadores devlene negra. 

Al actlvar el bit 4, la memorla de PM reservada para los 
cuatro proyectlles es tratada como un qulnto jugador. 


121 



Puede ocurrlr que se deflnan prlorldadaes contradictor I as en 
los bits 0 y 3. SI ello provoca un caso confllctlvo, la zona 
de la pantalla afectada devlene negra. 


624 $270 PADDLO 

Contlene el valor del paddle 0* En algunas ocasIones los 
paddles (raquetas) tambI6n se deslgnan pots (potencISmetro, 
regulador glratorlo)• 


625-631 $271-$277 PADDLE1-7 

En los modelos XL ya no se utlllzan mis que los paddles 0 a 
3. 

632 $278 ST I CKO 

Contlene el valor del joystick 0. Ex'sten nueve valores 
numSrlcos dlferentes para este reglstro, modlflcando s6lo 
los cuatro bits Infer Iores. 


Bit 3 a 0 actlvado (0000 1 HI « 15) 
reposo. 

Bit 3 desactlvado (0000 0111 = 7) 

Bit 2 desactlvado (0000 1011 = 11) 

Bit 1 desactlvado (0000 1101 = 13) 

Bit 0 desactlvado (0000 1110 = 14) 


joystick en pos-cI6n de 

joystick a derecha 
joystick a Izqulerda 
Joystick abajo 
joystick arrlba 


Bits 3 y 1 desactlvados (0101 = 5) Joystick abajo derecha 

Bits 3 y 0 desactlvados (0110 = 6) joystick arrlba derecha 

Bits 2 y 1 desactlvados (1001 = 9) Joystick abajo Izqulerda 

Bits 2 y 0 desactlvados (1010 = 10) joystick arrlba 

Izqulerda 
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ILUSTRACIONES 
posIclones - joystick 


1100 
= 15 



= 13 


Poslclones del joystick 

ConfIguraclones del bit y valores declmales 


633-635 $279-$27B STICK1-3 

Igual que stick 0* En mode I os XL s6lo ST I CKO y 1. 
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636 


$27C 


PTRI GO 


Indlca si el bot6n de fuego del paddle 0 esti pulsado. 
Contlene un 0 si el bo+6n esti pulsado y un 1 en caso 
contrar!o. 


637-643 $27D-$283 PTRIG1-7 

Igual que PTRI GO. En Ios mode Ios XL s6lo exlsten de 0 a 3. 


644 $284 STRIGO 

Igual que PTRIGO, pero para el joystick. 


645-647 $285-$287 STRIG1-3 

Igual que STRIGO. Los XL aeSlo dlsponen del 0 y 1. 


656 $290 TXTROW 

En el modo split-screen (griflco con ventana de texto), la 
ventana grSflca es admlnlstrada por el motor del display 
("S:"), mlentras que el editor ("E:") controla la ventana de 
texto. Se utlllzan 10CB separados y exlsten dos cursores 
Independlentes. Los datos grSflcos de la ventana de texto se 
guardan, ademis, en una zona de la memorla blen deflnlda y 
separada de la memorla de pantalla restante (vea ap6ndlce 
memorla de pantalla). 

TXTROW contlene la ITnea del cursor de la ventana de texto. 
Puesto que la ventana de texto tlene una altura de cuatro 
Ifneas, este reglstro s6lo puede tomar valores de 0 a 3. Al 
amp liar la ventana de texto a clnco o mis ITneas modlflcando 
el display list, aparecen los mlsmos problemas de poslclones 
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de cursor Ilegales que ya han sldo comentados en GRAPHICS 
71/2 relacionado con el reglstro DINDEX (87 = $52). 

657,658 $291,292 TXTCOL 

Columna del cursor de la ventana de texto. Contlene valores 
de 0 a 39. En todos Ios display lists estandar, el byte HI 
(658) tlene valor 0. 

Los comandos BASIC POSITION, PLOT o LOCATE se refleren 
Gnlcamente al cursor de la ventana graflca, por lo que son 
Ineflcaces en la ventana de texto, donde solo pueden ser 
sustltuldos por Ios POKEs correspondlentes (vea apendlce 
memorla de pantalla). 


659 $293 TINDEX 

Contlene el actual modo grciflco de la ventana de texto. Es 
el equlvalente a DINDEX (87 = $57) de la ventana de texto y 
su valor slempre es 0 si SWPFLG (123 = $7B) es 0. 

TINDEX es Inlclallzado a 0. Sin embargo, el modo graflco de 
la ventana de texto puede programarse llbremente con la 
pertlnente mod!flead6n del DL. SI se efectGa el camblo, hay 
que adaptar el valor de este reglstro. 


660,661 $294,$295 TXTMSC 

DIrecclon inIcIa I de la memorla de pantalla correspondiente 
a la ventana de texto. Esta memorla de pantalla ocupa una 
determlnada zona, Independlente de la ocupada por la ventana 
grSflca. Es por esta raz6n que la ventana de texto puede 
aparecer y desaparecer de la pantalla, sin que por ello se 
pierdan I os datos de « la zona de memorla ocupada 
a Iternatlvamente por la ventana grGflca y la de texto. 
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TXTMSC mues+ra la cel da de memorla que contlene Ios datos de 
pan+alla correspond Ientes a la esqulna superior Izquferda de 
la ventana de texto. Es el equlvalente a SAVMSC (88,89 = 
$58,$59) y puede ser man I pul ado de la forma a11T descrl+a. 


662-667 $296-$29B TXTOLD 

Estos reglstros contlenen Ios eqlvalentes a OLDROW (90 = 
* $5A), 0LDC0L (91,92 = $$5B,$5C), OLDCHR (93 = $5D) y OLDADR 
(94,95 = $5E,$5F) que corresponden a Ios datos del cursor de 
la ventana de texto. 


668-671 $29C-$29F 

Reg Istro 1ntermedIo• 


672 $2A0 DMASK 

MSscara que slrve para deflnlr en un byte de datos grSflcos 
los bits perteneclentes a un pixel. SegGn el modo graflco, 
se pueden agrupar ocho, cuatro, dos o un solo pixel en un 
byte. La mascara contlene un 0 por cada uno de los bits 
Innecesarlos para la representacI6n del pixel actual y un 1 
por los bits del pixel. 

SegGn el modo grSflco utlllzado, se actlva la respect Iva 
mSscara: 


11111111 

11110000 
00001111 


GRAPHICS 0, 1, 2 8 blt/plxel = 1 plxel/byte 

GRAPHICS 9,10,11 4 blt/plxel = 2 plxel/byte 
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11000000 
00110000 

00001100 GRAPHICS 3, 5, 7 

00000011 12,13,15 2 bit/pixel = 4 plxel/by+e 

10000000 
01000000 
a 

00000010 GRAPHICS 4, 6, 8 

00000001 14 1 blt/plxel =8 pixel/byte 


673 $2A1 TMPLBT 


Memorla Intermedia utlllzada por la mascara de bits. 


674 $2A2 ESCFLG 

I dentIficacl6n de escape. Su valor normal es 0 y se pone a 
128 al pulsar la tecla ESCAPE. DespuSs de emltlr el 
slgulente carScter vuelve a ponerse Inmedlatamente a 0. SI 
se pretenden representar los caracteres de control ATASCII 
sin utlllzar ESCAPE, DSPFLG (766 = $2FE) puede ser actlvado 
con un valor dlstlnto de 0. 


675-689 $2A3-$2B1 TABMAP 

Mascara utlllzada para deflnlr las paradas de tabulacI6n. 

La mSscara TAB se reflere a la ITnea I6glca, que comprende 
tres ITneas fTsIcas (GRAPHICS 0) de 40 columnas cada una, 
dando un total de 120 poslclones de columna. La mascara de 
TAB est5 deflnlda por 15 bytes (15*8 bits = 120). Cada bit 
actlvado ocaslona una parada de tabulacI6n que, mlentras no 
se modlflque, es vallda para todas las ITneas I6glcas. Sin 
embargo, pueden ser dlferentes para tres ITneas ffslcas 
consecutlvas. 
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La mascara tabuladora se define a trav6s del tec I ado 
u+lllzando las teclas TAB-SET y TAB-CLR* El margen Izqulerdo 
de la pantalla LMARGN (82 = $52) tambI6n hace las veces de 
parada tabuladora# 


El valor default para todos I os bytes de TABMAP es 1, 
efectuando paradas de tabulacI6n en las columnas 7, 15, 23, 
etc* Los valores default se renuevan con RESET y con cada 
comando GRAGHICS y OPEN dlrlgldo a "S:" o "E:"* La mascara 
tabuladora tambl§n es efectlva en la ventana de texto. 

Para camblar esta mascara con POKE, hay que actlvar las 
paradas tabuladoras en los bits de dlversos bytes, sumar sus 
valores poslclonales y POKEar el resultado asT obtenldo* 


Ejemplo de una mSscara TAB: 

byte 0 byte 1 byte 2 byte 3 byte 4 byte 5 etc* 
00001000 01000010 00010000 10000100 00100001 00001000 etc. 

= 8 = 66 * = 16 =132 = 33 = 8 etc. 

Para fljar una parada de tabu lac Ion cada clnco columnas, se 
deben colocar los valores declmales 8, 66, 16, 132, 33, 8, 
etc* en los reglstros 675 ff* 


Un sal to tabulador se orlglna a I pulsar la tec I a TAB y puede 
ser programado con PRINT "ESC" TAB* 
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690-693 


J2B2-J2B5 


LOGMAP 


MSscara que sfrve para marcar el pMnclplo de las ITneas 
I6glcas. 

Esta mascara se compone de cuatro bytes sin tener en cuenta 
el dltlmo. Cada uno de estos (3*8=) 24 bits define una Ifnea 
del modo GRAPHICS 0, El bit es actlvado al comenzar una 
ITnea I6glca en una determlnada Ifnea ffslca. 


Lfneas ffslcas relaclonadas con los bits de los bytes 690 a 


692. 







9 

byte 

bit 7 6 

5 

4 

3 

2 

1 

0 

690 

0 1 

2 

3 

4 

5 

6 

7 

691 

8 9 

10 

11 

12 

13 

14 

15 

692 

16 17 

18 

19 

20 

21 

22 

23 

694 

$2B6 



INVFLG 



1 dentIflcac16n (flag) 


de 

los 

caracteres Invertldos. 

Inlclallzada a 0. Al 

pulsar 

I a tec 1 a 

IN VERS ( : tec la 

"ATAR1") 

se actlva el bit 

7 (128). 




E1 motor 

del display relaclona 

los 

valores 

de los caracteres 

entrados 

a trav6s del 

tec 1 ado 

con 

el 

valor 

de este reglstro 

medlante 

la operacI6n 

I6g!ca 

OR. 

Mientras 

INVFLG s6lo tome 

el valor 

0 o 128, 

el 

valor | 

propIo del caracter no se 


modi flea, puesto que el juego de caracter s6lo consta de 128 
elementos. AI sumar 128 a I valor del caracter se representa 
el car3cter Inverso. 

Sin embargo, tambl6n pueden colocarse otros valores (= bit 
tlpo) en este reglstro e Invertlr asf los bits 6 a 0 de los 
caracteres llamados. De esta forma se modi flea el valor 
decimal y apareceri el caracter de este valor en lugar del 
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correspondIente a la tecla pulsada. jSIn embargo, hay que 
tener en cuenta que Invertlrlo se reflere aI cSdlgo del 
teclado y no al ATASCIIJ 

Resumlendo: se comblna medlante OR el bit tlpo del c6dlgo de 
teclado correspondlente al carScter llamado con el bit tlpo 
de INVFLG. A cont!nuacl6n se convlerte el valor resultante 
en el correspondlente carScter ATASCII a emltlr en la 
pantalla. INVFLG s6lo slrve para entradas en*modo dlrecto. 
Se debe escrlblr en este reglstro antes de efectuar la 
entrada. 


El slgulente programa permlte convertlr su ATARI en una 
mSqulna de escrlblr con letra secreta: 


0 REM ADRR694.BEC 

1 REM ^**************************** 

2 REM * * 

3 REM * ESCRITOR DE LETRA OCULTA * 

4 REM * * 

5 REM ^**************************** 

10 DIM T$(1):PRINT CHR$(125) 

20 TRAP 20 

30 PRINT :PRINT "ENTRE POR FAVOR MODAL I DAD DE GRAF ICOS" 

40 PRINT :PR I NT "(DESDE 1 HASTA 27)":PRINT 

50 INPUT J 

60 IF J<1 THEN 20 

70 IF J>127 THEN 20 

80 POKE 694,J 

90 TRAP 90 

100 PRINT :PR I NT "ESCRIBA POR FAVOR:PR I NT :PRINT 
110 INPUT T$ 
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10: El DIMensIonado de T$ es aleatorlo, puesto que no 
causara efecto alguno durante el programa. 

30 a 70: J toma el valor decimal que sera POKEado hacla 
INVFLG. El valor 128 no es Interesante, ya que s6lo slrve 
para 11amar a la representac16n Inversa del mlsmo carScter. 
Valores mayores que 128 causan el mlsmo efecto que el valor 
resultante de restarles 128; los bits tlpo son Id^ntlcos, 
pero el bit 7 estS actlvado en un caso y desactlvado en 
otro. Sin embargo, el actlvado/desactlvado del bit 7 puede 
efectuarse en cualquler momento pulsando la tecla INVERS. 

80: Se POKEa J. 

110: Ahora puede martlrlzar las tec I as a su gusto y se 
asombrarS de los caracteres que aparecerSn en la pantalla. 
jPruebe tamblSn con SHIFT, CONTROL e INVERS! El programa 
debe flnallzarse con RETURN. 
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695 


$2B7 


FlLFLG 


Iden+lflcacl6n FILL del comando DRAWTO. SI el proceso que se 
es+5 ejecutando es un DRAWTO, el reglstro tlene valor 0; si 
es un FILL (comando XIO 18), el valor es dfferente de 0. 


696-698 $2B8-$2BA TMPR0W/C0L 

Reglstro In+ermedlo utlllzado por ROWCRS y COLORS. 


699 $2BB SCRFLG 

I dentIfIcac!6n (flag) para el scroll temporal. Cuenta la 
cantldad de Ifneas fTsIcas menos 1 que han si do borradas en 
el borde superior de la pantalla. Puesto que una ITnea 
I6glca esta formada por hasta tres Ifneas ffslcas, SCRFLG 
puede tomar valores de 0 a 2. 

El efecto scroll de la ventana de texto es como un 
desplazamlento hacla arrlba de toda la pantalla de GRAPHICS 
0 en la memorla (j 800 bytes!). Elio puede provocar 
superposI clones de datos, como por ejemplo datos grSflcos de 
PM, juegos de caracteres, etc. ( ), deposltados 

anterlormente por enclma de RAMTOP. En caso de duda es 
aconsejable reservar una zona llbre de 800 bits por enclma 
de RAMTOP, permltlendo asf el desarrollo del scroll. 


700,701 $2BC,$2BD 

Reglstro Intermedlo durante el proceso FILL. 
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702 


$2BE 


SHFLOK 


1 dentIfIcaclSn (flag) de las tec I as SHIFT y CONTROL. 

Bit 7 actlvado: se ha pulsado la tec I a STRL y se emlten 
tanto Ios c6d!gos de control como Ios pseudo-caracteres 
grSflcos. Para representar letras (maydsculas y generales) 
el bit 7 debe estar desactlvado. 

Bit 6 actlvado: tecla SHIFT pulsada. En estado normal, la 
tecI a SHIFT slempre estci pulsada, puesto que SHFLOK se 
Inlclallza con 64. De aquT vlene el nombr^ del reglstro: 
SHIFT-Lock. Con la tecla CAPS ( : CAPS LOWR) el bit 6 se 
puede poner a 0, trabajando asf como una miquina de 
escrlblr. En este modo habr§ que pulsar pues la tecla SHIFT 
para escrlblr en maydscula. 


703 $2BF BOTSCR 

Indlca la cantI dad de poslbles ITneas de texto para PRINT. 

24 es el valor normal de GRAPHICS 0 
4 es el valor correspond Iente a la ventana de texto 
0 se encuentra sin ventana de texto en todos los modos 
grSficos. AquT se Incluyen los modos de caracteres en color 
(GRAPHICS 1, 2, 12, 13). 

A trav§s de este reglstro el manejador del display comprueba 
si se ha reclamado pantalla parti da (grafIca/texto)• Tamblen 
slrve para crear una ventana de texto (POKE 703,4) en 
GRAPHICS 0, pudlendo escrlblrse en las velnte ITneas 
super lores ' Cinicammente medlante la lnstrucc!6n PRINT 
dlrlglda a la ventana grSflca (PRINT 6). Esta parte 
superior no se altera al reallzarse el scroll de la ventana 
de texto. 

Esta t6cnlca se utlllza en el mend del DOS. 
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704 


$2C0 


P.C0LR0 


Reglstro de color del jugador (player) 0 y proyectlI 
(mlsslle) 0. 

Los cuatro reglstros de color PC0LR0-3 se leen tinlcamente en 
grciflco PM y en el modo GITA GRAPHICS 10. El comando BASIC 
SETC0L0R no alcanza los reglstros 704 a 707, por, lo que los 
valores de color s6lo pueden ser POKEados hacla ellos. 

El ATARI puede crear dleclsels matlces dlferentes de 

colores, IdentlfIcados por los nQmeros 0 a 15. Sin embargo, 

a dlferencla de otros homecomputers de parecldas condlclones 

en cuan+o a preclo, el ATARI tamblSn dispone de dleclsels 

gradaclones de clarldad dlferentes desde 0 = oscuro a 15 = 

claro, resultando asf 256 valores de color dlferentes. Sin 

embargo, s6lo se pueden representar de 1 a un maxImo de 16 

colores dlstlntos en una pantalla, segun el modo graflco 
% 

utlllzado (sin hacer uso de DLI). 

El valor del color se determIna medlante la f6rmula: 

Valor de color = matlz * 16 + gradaclon de clarldad 

Esto sign I flea que el matlz de color (de 0 = 0000 a 15 = 
1111) ocupa el nibble superior, mlentras que la gradac!6n de 
clarldad (tambI6n de 0 = 0000 a 15 = 1111) ocupa el nibble 
Inferior de los reglstros de color. 

Puesto que no se lee el bit 0 de los reglstros de color, se 
dispone en realidad de solo ocho gradaclones de clarldad 
(valores pares). Unlcamente en el modo GITA GRAPHIC 9 se 
muestran las dleclsels gradaclones poslbles. 

Al actlvar el bit 5 (tercer color por superpos!cI6n) del 
reglstro GPRIOR (623 = $26F), el valor del color 

correspondIente a este matlz de superposlc!6n resulta de una 
combInacl6n medlante el OR !6gIco. 
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= blnarlo 


primer valor de color rosa = decimal 52 

0011 0100 

segundo valor de color verde = decimal 226 = blnarlo 

1110 0010 

comb Inado con OR = marr6n = decimal 246 = blnarlo 

1111 0110 

A consecuencla de la comblnaclfin medlante la operac!6n 
loglca OR, el ma+Iz de la zona superpuesta slempre tlene una 
gradaclon de color superior a los colores alslados, es declr 
un matlz de color con mayor nGmero de I dentIfIcacI6n y mayor 
clarldad. 


705-707 $2C1-$2C3 PC0LR1-3 

Valor de color para el jugador (player) 1 a 3 y proyectll 
(mlsslle) 1 a 3* 


708 $2C4 C0L0R0 

Los reglstros de color slgulentes se leen en los dI versos 
modos graflcos. Pueden ser escrltos con el comando BASIC 
SETC0L0R que tlene el formato: 

SETCOLOR r,f,h 

r puede tomar valores de 0 a 4 y hace referenda a los 

reglstros de color C0L0R0 (708 = $2C4) a C0L0R4 '712 = 

$2C8). 

f puede tomar valores de 0 a 15 y corresponde a los 

dleclsels matlces de color estSndar. 

h puede tomar valores pares entre 0 y 14 y determlna la 

clari dad. 
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El comando SETCOLOR es seguramen+e el m§s inCitil de todo el 
BASIC del ATARI, puesto que es mSs dlftcll de utlllzar que 
POKE, con el que se consigue el mlsmo resultado. Puesto que 
los valores de r y f para SETCOLOR se deben hallar de forma 
experimental, tamblen puede escrlblrse dfrectamente el valor 
de color (f*16+h) en el reglstro. Al tener que deflnlr 
varlos coI ores, con el comando POKE se ahorra bastante 
memorfa en los programas BASIC. 


709-712 $2C5-$2C8 COLOR1-4 

Reglstros de color 1 a 4. 

% 

En los dlferentes modos grat I cos, los reglstros de color 
tlenen dfstintas mlslones y se accede a ellos medlante 
varlos comandos BASIC COLOR. En el apSndfce memorfa de 
pantalla podra encontrar un cuadro resumen a I respecto. 

AI conectar el ordenador, los reglstros COLOR toman valores 
dlferentes, elegldos, segtin crlterlos tScnlcos y no 
estetlcos (de dlflcll apreclaclon), para consegulr un 
contraste 6ptlmo. 


Reglstro 


valor de color matlz de color 


clari dad 


708 

C0L0R0 

40 

709 

COLOR1 

202 

710 

COLOR2 

148 

711 

C0L0R3 

70 

712 

C0L0R4 

0 


2 

12 

9 

4 

0 


8 

10 

4 

6 

0 


El slgulente programa es un modesto ejemplo de los efectos 
que se pueden consegulr medlante el acceso a los reglstros 
de color: 
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0 REM COLPOK.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * CAMBIO RAP I DO DE COLOR * 

4 REM * * 

5 REM ****************************** 
10 GRAPHICS 10 

20 FOR J=1 TO 8 
30 POKE 704+J,J*4 
40 NEXT J 
50 FOR C=0 TO 8 
60 COLOR C 
70 FOR 1=0 TO 7 

80 PLOT C*8+l,0:DRAWT0 C*8+l,191 
90 NEXT I 
100 NEXT C 
200 A=PEEK(705) 

210 FOR J=0 TO 6 

220 POKE 705+J,PEEK(706+J) 

230 REM FOR W=0 TO 200:NEXT 2 
240 NEXT J 
250 POKE 712,A 
260 GOTO 200 
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Con motlvo de una mayor eleccffin se ha u+lllzado el modo 
grSflco 10, que ademas del color de fondo admlte otros ocho 
matlces de llbre deflnlclon. 

En este programa los valores de color se encuentran en los 
reglstros 705 a 712. El 704 define el color de fondo y se 
actlva a 0 (= negro). 


20 a 40: El bucle F0R-NEXT escribe valores de color desde 4 
(1*4) hasta 32 (8*4) en los reglstros de color 705 (704+1) a 
712 (704+8). No fue necesarlo escrlblr en el reglstro 704, 

puesto que su valor default 0 corresponde a I color deseado. 
Natural mente tambl§n se puede aslgnar un valor cualqulera a 
cada reglstro de color por separado. Sin embargo, para 
consegulr el efecto deseado son prefer lb Ies los matlces 
graduados por clari dad. 

50 a 100: Llenan la pantalla de GRAPHICS 0 con barras 

vertlcales coloreadas y ordenadas segGn los reglstros de 
color. 

200: En A se guarda el valor de color del reglstro 705. 

210: A contlnuaclon se camblan los valores de color de 

slete reglstros (J=0 TO 6), 

220: escrlblendo en el reglstro precedente el valor del 

slgulente. 

250: Flnalmente el Gltlmo reglstro (712) adqulere el valor 

del prlmero (705), contenldo en A. 


SI ejecuta el programa de esta manera se produce el efecto 
de un tambor glratorlo. La velocldad de giro se reduce 
ellmlnando el REM de la Ifnea 230. Al aumentar el valor del 
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contador W del bucle, el "giro” del tambor se hace m6s 
lento. 


Otro efecto eflcaz conslste en camblar el valor de color de 
un reglstro con una secuencfa corta: 


260 X=X-2:IF X<0 THEN X=254 
270 POKE 704,X 
280 GOTO 200 


Afiadlendo estas tres Ifneas al llstado anterior, el fondo 
(704) empteza a brlllar en varlos colores. St desea conocer 
la velocldad con que camblan los valores de color utlllzando 
POKE, modifIque el destlno del sal to en la Ifnea 280 de 200 
a 260. 


729 $2D9 KEYDEL 

Determine el ttempo que tarda en actlvarse la funcl6n 
repetldora del teclado. El valor default es 40. Con el valor 
0 se Interrumpe la funclon repetldora. AI Incrementar los 
valores en orden creclente desde 1 a 255, aumenta su 
retardo. Cuando tlene valor 1 el retardo es tan corto, que 
a I pulsar una tec I a resulta Imposlble escrlblr un dnlco 
carScter en la pantalla. (s6lo XL) 


730 $2DA KEZREP 

Cuando se actlva la func!6n repetldora despuSs de pasar por 
KEYDEL, KEYREP determine la frecuencla de repetfcl6n. El 
valor default es 5. La repettclon es tanto mSs rdplda cuanto 
menor sea el valor del reglstro. SI el valor aslgnado es 0, 
s6lo puede darse una Gnlca repetlclfin. (s6lo XL) 
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731 $2DB NOCLIK 

Flag del cllc del teclado. El valor 0 evlta el cllc, 
mientras que cualquler otro valor lo actlva. (s6Iq XL) 


732 $2DC HLPFLG 

Flag de la tecla HELP. Su valor default es 0. Al pulsar la 
tec I a HELP se actI van I os bits 0 y 4 (= 17). SI se pulsa 
slmuJtaneamente con SHIFT, se actlva ademSs el bit 6, con lo 
cual el reglstro contendrS el valor 81. HELP y CONTROL 
actlvan adlclonalmente el bit 7 (= 145). Al pulsar SHIFT y 
CONTROL a I mlsmo tlempo, el acclonamlento de HELP no tendrS 
consecuenclas. ^Los bits actlvados no se vuelven a poner a 0 
a I anular las tec I as! (s6lo XL) 


740 $2E4 RAMS IZ 

Tamafio de la RAM dlsponlble. Contiene tan s6lo el byte HI, 
Indlcando pues el tamafio de la RAM en paglnas. Contlene el 
mlsmo valor que RAMTOP (106 = $6A). 


741,742 $2E5,$2E6 MEMTOP 

• 

Puntero hacla el Ifmlte superior de la memorla RAM 
dlsponlble. Este valor es renovado con cada powerup o RESET, 
asf como por cada comando GRAPHICS y OPEN, que se dlrlge 
hacla el display. 


743,744 $2E7,J2E8 MEMLO 

Puntero hacla el Ifmlte Inferior de la memorla RAM llbre. Es 
modlflcado por ejemplo por el DOS, cargado en la zona 
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Inferior de la memoria. 

MEMLO apunta hacla la primera posicI6n llbre de memorla que 
puede ser ocupada por un programa de apIIcaclones. 


750,751 $2EE,$2EF CBAUD 

Contlene la velocldad de transferencia de datos en baudlos 
para el cassette. Se Inlciallza a 1484, que corresponde a 
una velocldad de transferencia de 600 (blts/segundo), y es 
ajustada por el SIO. Cada grabacion en cassette comlenza. con 
un tlpo de bits de encendldo/apagado en el que el motor del 
cassette corrfge la velocldad de transferencia de datos en 
baudlos. 

752 $2F0 CRSINH 

Flag de la supres!6n del cursor. Se actlva a 0 en powerup, 
RESET, BREAK y OPEN ”S: M o "E:", que visualIza el cursor. 
Cualquler valor dlferente a 0 da lugar a que el cursor 
desaparezca despu6s del slgulente movlmlento. 

753 $2F1 KEYDEL 

Flag del retardo de teclas. TIene el valor 0 cuando no hay 

nlnguna tecla pulsada. En caso contrarlo toma el valor 3, 

. 

que dlsminuye en 1 con cada VBLANK. La pr6xlma entrada del 
tec I ado no ser£ admit I da hasta alcanzar nuevamente el valor 
0. KEYDEL determlna, pues, el Intervalo de tlempo entre dos 
puIsaclones. 

-? 33-^3£*>> TtLe 
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754 


S2F2 


CHI 


Contlene el valor de la tec I a pulsada anterlormente, cargado 
de CH (764 = $2FC) hacla aquf. 

755 S2F3 CHACT 

Reglstro utlllzado para representar caracteres. 

SI tlene valor 0, los caracteres Inversos se representan en 
forma de normales. Con ello se conslgue que el cursor sea 
Invisible. 

El valor 1 da lugar a que todos los caracteres Inversos se 
emltan como espaclos. El cursor tambl€n ser£ Invisible, no 
obstante desaparecer£ el car£cter que se encuentra bajo 6 I. 

El valor default es 2. 

Utlllzando el valor 3, todos los caracteres Inversos se 
representan en forma de espaclo Inverso. 

Al actlvar el bit 2 (= 4) todos los caracteres se emlten 
Invertldos. 

En el modo de caracteres GRAPHICS 1, 2, 14 y 15 los 
respectIvos valores slmplemente dan lugar a que los 
caracteres se emltan Invert!dos. 

Pero vea usted mlsmo el efecto que los dlversos valores de 
este reglstro causan en GRAPHICS 0: 
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0 REM ADR755.BEC 

1 REM *******************■&******* 

2 REM * * 

3 REM * CARACTERES INVERT I DOS * 

4 REM * * 

5 REM *************************** 
10 GRAPHICS 0:P0KE 703,4 

20 ? "321 321 CBA CBA" 

30 FOR J=0 TO 255 
40 POKE 755,J 
50 ?# 6: J;" 

60 OPEN #1,4,0,’’K:" 

70 GET #1,D 
80 CLOSE# 1 
90 NEXT J 


******************************************************** 

* jAtencion! \ El llstado contlene caracteres Inversos * 

* absolutanente Impresclndlbles para su comprenslon! * 
******************************************************** 


10: En GRAPHICS 0 se POKEa una ventana graftca. 

20: Se mues+ran con PRINT caracteres normales e Inversos en 
la ventana graflca. 

40: El valor es POKEado hacla 755. 

50: Como medlda de control, en la ventana de texto aparece 

el valor reclen POKEado. 

60 a 80: Cuando el usuarlo haya pulsado cualquler tecla, el 
programa contlntia colocando el slgulente valor en 755. 

Como puede ver, en este reglstro s6lo actuan los bits 0 y 2. 
Gracias a las ocho regulaciones dlferentes se pueden crear 
gran numero de bonltos Intermltentes, conmutando entre dos 
valores de CHACT. El slgulente programa le muestra las 64 
comb InacI ones posibles: 
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0 REM ADR755B.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * INTERM ITENTE 8X8 * 

4 REM * * 

5 REM ****************************** 

10 GRAPHICS O:P0KE 703,4 

20 POSITION 5,12 

30 PRINT# 6;"INTERMITENTE! INTERMITENTE! INTERMITENTE! 
INTERM ITENTE!" 

40 FOR 1=0 TO 7 

50 FOR J=0 TO 7 

60 PRINT IJrPRINT 

70 POKE 755,1 

80 FOR W=0 TO 100:NEXT W 

90 POKE 755,J 

100 FOR W=0 TO 100:NEXT W 

110 IF PEEK(764)=225 THEN 70 

120 0PEN#1,4,0,"K:" 

130 GET# 1,D 
140 CLOSE# 1 
150 NEXT J 
160 NEXT I ' 


******************************************************* 

* ;Atencl6n! jEl Ifs+ado con+Iene caracteres Inversos * 

* absolutamen+e Impresclndlble para su comprenslon! * 
******************************************************* 
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10 a 30: Se Imprlme el texto en el centro del grSflco 0. 


40 y 50: Los bucles Indentados procesan todas las ocho por 
ocho comb Inaclones entre las que se puede conmutar en CHACT. 

60: Muestra la comb InacIon actual en la ventana de texto 

como medI da de controI• 

80 y 100: Aquf'se puede modlflcar la frecuencfa de emls!6n 
Intermltente. 

110 a 130: La slgulente comb Inac16n empleza a centellar aI 
pulsar cualquler tecla del keyboard. 
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756 


$2F4 


CHBAS 


Pun+ero hacla la d!reccI6n Inlclal del juego de caracteres 
estandar del ATARI. 

CHBAS es slmplemen+e un puntero al byte HI; para ob+ener la 
verdadera d!recc!6n hay que mul+lplicar 256 por el valor 
aquf Indlcado. El valor default de este reglstro es 224. El 
Juego de caracteres estS formado por 128 elementos. Los 
caracteres (ATASCII 128 a 255) Inversos (negatlvos) no 
preclsan de datos especfales, creSndose slmplemente a I 
fnvertlr el bit tlpo del carficter normal. El flag de la 
representac!6n Inversa es el bit 7 (* 128). Esto slgnlflca, 
que el valor ATASCII de un carScter Inverso resulta de 
sumarle 128 a su correspondlente cardcter normal. 

En I os modos grSflcos GRAPHICS 1 y 2 se dispone tan s6lo de 
la mltad del juego de caracteres, es declr, de slgnos de 
* puntuac!6n, clfras y letras maydsculas. Al camblar CHBAS al 
prlncfplo de la parte posterior del juego de caracteres, 
tamb16n pueden emltlrse letras mlnfisculas. Sin embargo, es 
Imposlble representar al mlsmo tlempo maydsculas y 
caracteres comunes en una pantalla (sin modlflcar el proplo 
juego de caracteres). Se puede camblar el puntero utlllzando 
POKE 756,226. 

El juego de caracteres estSndar corresponde naturalmente al 
amerlcano. Sin embargo, y graclas a la colonlzaclo 
electronlca, I os XL tambl6n cuentan con un juego de 
caracteres europeo, acceslble con POKE 756,204. 

En el apartado "juego de caracteres" del ap£ndlce se explica 
la conf1gurac16n del mlsmo, asf como la forma de dlsefiarlo, 
grabarlo y cargarlo. 
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760 


$2F8 


ROW INC 


Signo (+1 o blen -1) de DELTAR (118 = $$76). (*: 121 = $79) 

761 $2F9 COL INC 

Signo de DELTAC (119,120 = $77,$78). (*: 122 = $80) 

762 $2FA CHAR 

Contlene el c6d!go Inferno del Gl+Imo carScter lefdo o 
escrlto. Pot lo general, el BASIC es demaslado lento para 
leer este reglstro, por lo que el resultado de PEEK (762) 


suele ser 

solo el 

valor 

128 (cursor 

visible 

= espaclo 

lnverso) 

o 0 

(cursor 

Invisible = espaclo). 



763 


$2FB 


ATACHR 



Contlene 

el 

valor 

ATASC11 

del filtlmo 

car£cter 

escrlto o 

lefdo y 

es 

utl1Izado al 

convertIr el 

ATASC 1 1 

en c6d1go 

lnterno. 

Al 

trabajar en 

modo griflco. 

se coloca en este 


reglstro el valor del color del punto grSflco en cuest16n, y 
en los comandos XIO 17 (DRAW) y XIO 18 (FILL) el color de la 
ITnea a dfbujar. 


764 $2FC CH 

Contlene el c6d!go de tec I ado correspond Iente a la tiltlma 
tecla pulsada. Permlte leer entradas de teclado utlllzando 
PEEK (764) sin necesldad de entrar RETURN. 
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El regls+ro contlene un 255 mlentras no haya nlnguna tecla 
pulsada. En la tab I a slgulen+e se muestran los c6dlgos de 
teclado de las teclas restantes.Hay que sumar los valores 


declmales 

de los lados 

superior 

e Izqulerdo 

para < 

Dbtener el 

c6dlgo 

del 

car£cter 

que 

se encuentra en 

su intersecc!6n: 


0 

1 

2 

3 

4 

5 

6 

7 

00 

L 

J 

• 

f 



K 

+ 

* 

08 

0 


P 

U 

return 

1 

— 

= 

16 

V 


C 



B 

X 

Z 

24 

4 


3 

6 

escape 

5 

2 

1 

3.2 

» 

espaclo 

• 

N 


M 

/ 

Inverso 

40 

R 


E 

Y 

Tab 

T 

W 

0 

48 

9 


0 

7 

backs 

8 

( 

) 


Estos caracteres ocupan los bits 0 a 5. Independlentemente 
de el lo, la pulsac!6n slmult6nea de cualquler tecla con 
SHIFT actlva el bit 6 y el bit 7 con CONTROL. Pulsar al 
mlsmo tlempo las teclas SHIFT y CONTROL no esti permttldo y 
es Ignorado por el OS. 

El cod I go de teclado de un carScter corresponde aI offset 
del mlsmo en la tab I a de deflnlclones del teclado, utlllzada 
para convertlr el codlgo de teclado en ATASCII. El usuarlo 
puede deflnlr una tab I a de deflnlclones prop I a y aslgnar 
nuevos valores ATASCII aleatorlos a cada tecla. Para ello es 
necesarlo que la tab I a conste de tres partes: a I primer 
terclo de 64 bytes se accede a trav6s de las letras 
mlnusculas; los 64 bytes slgulentes a 1rav6s de la mlsma 
tecla + SHIFT; utlllzando la tecla + CONTROL se accede a los 
ultlmos 64 bytes. 

Despu6s de colocar la nueva tab I a de deflnlclones en la 
memorla, hay que camblar el puntero KEYDEF (12,122 = 
$79,$7A) para que apunte hacla el prlnclplo de la nueva 
tab la. 
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Las teclas RESET, BREAK, SHIFT, CONTROL, asf como las tec I as 
de fund ones OPTION, SELECT, START, HELP y la combInacIon 
CONTROL + "I" no se procesan a traves de esta tab I a y, por 
lo tanto, no se puede camblar su valor en este reglstro. 

Una aplicacion de CH se muestra en la ITnea 110 del programa 
ejemplo ADR755B.BEC. 


765 $2FD FILDAT 

Valor COLOR correspondiente a la zona a llenar por XIO 18 
(FILL). 

El slguIente programa le muestra la forma de emplear el 
comando FILL: 


0 REM ADR765.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * X10 18=C0MAND0-FILL * 

4 REM * * 

5 REM ****************************** 
10 GRAPHICS 31 

20 POKE 708,4:POKE 709,50:POKE 710,1 

30 POKE 765,1 

40 COLOR 2 

45 REM PLOT 80,80 

50 PLOT 139,95 

60 DRAWT0 109,0 

70 DRAWT0 49,0 

80 POSITION 19,95 

90 XIO 18^6,0,0,"S:" 

95 GOTO 95 

100 PLOT 109,191 

110 DRAWT0 139,96:REM COLOR 1 

120 DRAWT0 19,96 

130 POSITION 49,191 

140 XIO 18,#6,0,0,"S:" 

150 GOTO 150 
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160 COLOR 3 
170 PLOT 159,191 
180 DRAWTO 159,0 
190 DRAWTO 0,0 
ZOO POSITION 0,191 
Z10 POKE 765,2 
‘220 XIO 18,#6,0,0, M S:" 

230 GOTO 230 

240 PLOT 159,191:REM COLOR 2 

250 DRAWTO 159,0 

260 DRAWTO 110,0 

27,0 COLOR 2:P0SITI0N 140,95 

280 XIO 18,#6,0,0,"S:" 

290 PLOT 159,96 
500 DRAWTO 140,96 
510 POSITION 110,191 
320 XIO 18,#6,0,0, ,f S:S w 
530 GOTO 330 


10: Se conecta GRAPHICS 15 sin ventana de texto (+16)• SI 
posee un ATARI antlguo Incapaz, de dlrlglrse a este modo a 
trav6s de GRAPHICS, util Ice GRAPHICS 7+16. En este caso serS 
necesarlo adaptar parcialmente los PLOTs. 

20: Valores de color para COLOR 1, 2 y 3. COLOR 0, que 
corresponde al fondo y estS contenldo en el reglstro 712, 
mantlene su valor default 0 (= negro). 

30: En FILDAT se determlna el valor de COLOR 1 para XIO 18. 

40: Se llama el color 2 destlnado a los PLOTs slgulentes. 

50 a 80: La funcI6n FILL preclsa de las sefialIzaclones 
slgulentes: una Ifnea PLOTeada como Ifmlte derecho; una 
ITnea PLOTeada como borde superior; ambas deflnen tres 
esqulnas de la superflcle a Ilenar. con FILL: Inferior 
derecha, superior derecha y superior Izqulerda; como ultima 
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orlentacl6n se preclsa el punto Inferior Izqulerdo, que es 

entrado en forma de comando POSITION, Con el comando FILL 

s6lo se pueden rellenar superficies cuadradas, aunque de 

forma cualqulera. La unlca condlc!6n qdlclonal que debe 

cumpllrse es que la esqulna superior Izqulerda se encuentre 

por enclma de la superior derecha, puesto que 
% 

90: el comando FILL reallza ahora lo slgulente: desde la 

esqulna superior Izqulerda se dlbuja (PLOT) una Ifnea del 
color requerldo actual had a el punto Indlcado por POSITION, 
Despu^s de cada uno de los puntos asf PLOTeados, se traza 
una ITnea con el color colocado en FILDAT a partIr de este 
punto hacla la derecha, hasta que un punto ya PLOTeado 
Ilegue al Ifmlte derecho. A cont!nuacl6n se dlbuja el 
slgulente punto del lado Izqulerdo del cuadrado, se vuelve a 
trazar la Ifnea FILL hacla la derecha, etc. 

Para demostrar este efecto, afiada a I llstado la ITnea 
slgulente: 

45 PLOT 80,80 

y escrlba RUN. VerS que cuando la rutlna FILL Mega a la 
Ifnea 80, 6sta se llena s6lo hasta la columna 79, mlentras 
que el resto de la Ifnea se mantlene del color habitual. 


95: Vuelva a borrar ahora esta Ifnea y la 45 para 

contlnuar. 

100 a 140: El hexSgono a dlbujar en la pantalla debe 

partirse en dos trapeclos. A cont!nuac!6n se muestra la 
parte Inferior. 

110: S! ejecuta ahora el programa, podrS ver claramente 

como se va trazando (PLOT) prlmero el lado Izqulerdo y 
superior del cuadrado. Durante el FILL se crea ademSs el 
borde Izqulerdo. El cuadrado se llmlta hacla abajo por el 
borde de la superflcle de FILL. SI desea obtener un marco 
coloreado alrededor, habrS que dlbujar (PLOT) ademas el 
borde Inferior del color deseado. En caso contrarlo, ver & 
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que el borde superior de la mi tad Inferior del hexagono se 
emlte del COLOR valido para PLOT, trazSndose asf una ITnea 
divisor I a horizontal en el centro del hexagono* SI prefiere 
ellminar esta ITnea, borre el REM de la ITnea 110, activando 
el comando COLOR. Se permite determ inar el mlsmo valor de 
COLOR para PLOT y FILL. 

150: Despues de apreclar el efecto de estas man Ipulac I ones, 
elimlne esta ITnea para acceder a la parte posterior del 
programa. 

160 a 220: Se encargan de dibujar (PLOT) de COLOR 3 I os 
bordes exterlores de la ventana gr£flca como ITneas que 
limiten el comando FILL. Sin embargo, cuando el comando XIO 
18 se ejecute utilizando COLOR 2, considerara los bordes 
Izquierdos ya existentes del rectSngulo como iTmite derecho. 
Por lo tanto, no se rellenara la pantalla restante sino 
unicamente la superflcle entre el lado izqulerdo y el 
hexagono. 

230: Cuando haya estudiado este proceso, borre esta ITnea 
de captura. 

240 a 280: Para rellenar ahora la superflcle restante que 
se encuentra a la derecha del hexagono habra que realizar 
mas esfuerzos, ya que es imposible colorear esta superficie 
con ayuda de un comando. SI se dibujasen (PLOT) los ITmites 
izqulerdo y superior de la superficie (margen de pantalla) y 
se situase despues el cursor con POSITION en el extremo 
inferior Izqulerdo, se trazarfa tan solo el borde izqulerdo. 
Este borde se encuentra en el interior del hexSgono. El 
comando FILL comenzarTa por el interior del hexagono y 
considerarTa sus bordes derechos como ITmite derecho. Sin 
embargo, una vez se haya rellenado una superficie con FILL, 
esta no podra volver a modlficarse utilizando FILL. 
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La superflcle res+ante de la derecha deberS rellenarse pues 
en dos partes. Las ITneas 240 a 280 se encargan de la mltad 
superior. El molesto borde Izqulerdo puede adaptarse en 
cuanto a color ellmlnando el REM de la ITnea 240. 

El trazado del ITmlte derecho (margen de pantalla) es 
Innecesarlo, puesto que ya se ha efectuado en las ITneas 100 
y 110 a I Intentar sin exl+o rellenar de una vez la totalldad 
de la superflcle restante con FILL. 


766 $2FE DSPFLG 

Flag del display para tratar Ios caracteres de control. Los 
caracteres de control tales como movlmlento del cursor, 
borrado de pantalla, INSERT, DELETE, BACKS o TAB pueden 
Introduclrse en programas BASIC de dos formas dlferentes. La 
prImera: 

PRINT CHR$(n) 

ejecuta la funclon menclonada al sustltulr el valor 
correspond Iente por n. Es declr, con n=125 se llmpla (CLEAR) 
la pantalla. Esta Instrucclon aparece en la mayor parte de 
los programas ejemplo presentados en este llbro. Esta forma 
tlene la ventaja de que cualquler Impresora conectada puede 
escrlblrla sin nlngdn problema. 

La segunda poslbllldad conslste en programar la funclon 
deseada a trav6s de la tecla correspondlente. La Instrucc!6n 
BASIC tendra la forma mostrada a contInuacI6n, donde las 
lndleadones en () slgnlflcan que a I entrarlo tendrS que 
pulsar la tecla correspond 1ente: 

PRINT "(ESCAPE)(CLEAR)" 
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AI en+rar esta lns+ruccI6n aparece un sfmbolo grSflco en la 
pan+aila, en este caso se tra+a de una pequefia flecha 
Incllnada que sefiala hacla la parte superior Izqulerda. Para 
el programador prlnclplante €sta es una lns+ruccI6n faclI de 
apllcar, puesto que no necesf+a acordarse de los valores 
ATASCII correspondlentes a las funclones deseadas slno que, 
a I programar, slmplemente deberS pulsar las mlsmas te<$Ha& 
utlllzadas al trabajar en modo dlrecto. Por clerto, la tecla 
ESCAPE s6lo tlene efecto sobre la tecla Inmedlatamente 
posterior; si desea entrar varlos caracteres de control 
seguldos, deberS pulsar ESC del ante de cada uno de ellos. 

Sin embargo, cuando pretenda 11 star por la Impresora su 
programa elaborado, maldeclr£ este comodo m§todo, puesto que 
la Impresora s6lo consldera los valores reclbldos 
lnterpretados a su manera, sin estar deflnldos por la norma 
ASCII. Es, pues, completamente normal que se vuelva loco. A 
pesar de ello, un (ESCAPE)(CLEAR), al Ir entre par6ntesls, 
se escribe en la Impresora. Pero los c6dlgos de valor 
superior a 128 (por ejemplo, TAB) pueden provocar una 
reacclon sorprendente, dlferente en cada mode Io de 
Impresora. 

Lo mlsmo slrve para los pseudo-caracteres grSflcos cuyos 
valores ATASCII oscllan entre 0 y 31, que son los caracteres 
de control mSs Importantes para la impresora (norma ASCII); 
la Impresora empleza luego a reallzar saltos de TAB, avances 
de ITnea y formularlo, retorno del carro (carriage return) y 
de vez en cuando suena la campanlta. ATARI no ha conseguldo 
todavfa ofrecer una Impresora capaz de Imprlmlr todo el 
juego de caracteres ATASCII. Actualmente no exlste slqulera 
una Interfase adecuada a tal fin. Se aconseja, pues, 
sustltulr todos estos caracteres por sus correspondlentes 
comandos CHR$ -cuyo efecto es ld6ntlco a I de los caracteres 
pseudo-grafIcos o de control entrados en forma de strings- 
en aquellos programas que deberan Imprimlrse. 
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SI el valor de DSPFLG es Oit^rente de 0, el caracter ae 
control en cuestion se represents en la pantalla por su 
graflco correspondiente, o sea, al igual -que si se hublese 
pulsado ESC. 0 es el estado normal de este registro. 


767 S2FF SSFLAG 

Flag de inicio/parada de la sal Ida a pantalla. Mlentras su 
valor sea 0 la sal Ida se reallza sin problemas. El valor 255 
(inverso de 00000000), Interrumpe la sal I da a pantalla y el 
si sterna espera hasta que s^ coloque un 0 en este registro. 
SSFlAG se conmuta pujsando s imu I taneamente CONTROL y *' 1”. 
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768 


$300 


DDEVIC 


Cod I go de I dentIfIcacfon para el flag de I os pert If6rIcos* 


769 $301 DUN IT 

Ndrnero de per!f6rlco; puede ser deflnldo por el usuarlo# 


770 $302 DCOMND 

Byte de comando# Contlene el nflmero del flag que corresponde 
a la operacI6n a reallzar# 


771 $303 DSTATS 

Estado de dlsposltlvo# 


772,773 $$304,$305 DBUFL0/HI 

DIrecclon del buffer de datos# 


774 $306 DTIML0 

Tlempo de espera para el motor del dlsposltlvo hasta 
produclrse el mensaje de error timeout# 


775 $307 DUNUSE 

Byte llbre# 
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776,777 


$308,$309 


DBYTLO/HI 


Cantldad de bytes que se encuentran en el buffer al que 
apunta DBUFLO/HI• 


778,779 


$30A,$30B DAUX1/2 


Informaclones auxMlares. En operaclones de diskette, por 
ejemplo, para Indlcar L0 y HI del numero de sector. 


780,781 $30C,$30D TIMER1 

Timer de la veloci dad de transferencla de datos en baudI os. 


783 $30F CASFLG 

Es dlferente de 0 cuando la operacl6n que se est6 reallzando 
se dlrlge a I cassette. 


784,785 $310,$311 TIMER2 

Timer 2 de Intervalo. TIMER1 y TIMER2 se utlllzan para 
ajustar la velocldad de transferencla de datos, en baudlos, 
de las operaclones con cassette. Se encargan de comparar el 
valor estSndar con el bit tlpo que se encuentra al prlnclplo 
de un flchero de cassette. La dlferencla de los timer slrve 
para hallar en una tabla el valor de correcclon, a traves 
del cual se transmitir^ entonces la velocldad de 
transferencla en baudlos al CBAUDL/H(750,751) = $2EE,$2EF). 

791 $317 TIMFLG 

Flag del timeout. 
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792 


$318 


STACKP 


Pun+ero de stack SIO. 


793 $319 1STAT 

Reglstro Intermedlo reservado para Informaclones sobre el 
estado del SIO* 


794-831 $31A-$33F HATABS 

Tab I a de las dIreccIones del motor* Sfrve para aslgnar Ios 
perlfSrlcos a sus respectfvos motores* Se pueden registrar 
hasta 38 entradas de tres bytes cada una* El primer byte 
contlene el nombre del dlsposltlvo (C, D, E, K, P, S, R) en 
cfidlgo ATASCII; los bytes dos y tres contlenen LO y HI de la 
dlreccl6n Inlclal del motor* Los bytes llbres tlenen valor 
0 . 

832-847 „$340-$34F I0CB0 

Bloque de control 0 del I/O* Es utlllzado normalmente para 
el editor de pantalla ("E:")* En los modos GRAPHICS el canal 
0 estS ablerto hacla la ventana de texto* SI no exlste 
nlnguna ventana de texto y se abre el canal 0 , toda la 
pantalla se convlerte en modo edltar (GRAPHICS 0)* E$to 
ocurre por ejemplo para mostrar READY cuando un programa 
graflco ha si do procesado sin ventana de texto* 

Los comandos BASIC NEW y RUN clerran todos los canales 
excepto el 0* Al abrlr un canal hacla "Ss" o "E:", se borra 
toda la pantalla* 
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Si en un programa la en+rada efectuada por el usuarlo debe 
dec I dir si I os da+os tlenen que salir en pantalla o en 
Impresora, se puede evitar la programacion reiterada de 
todas las poslbles sal Idas en forma de instrucclones PRINT y 
LPRINT. Basta con modifI car el vector de las dlrecciones 838 
(= $340) L0 y 839 (= $34F) HI. HabltuaImente, este pun+ero 
contiene los valores 163 y 246. Si aquT se colocan 166 L0 y 
238 HI, se emitira hacia la impresora lo que normalmen+e va 
hacia el editor. 


842 $34A ICAX1 

Esta .direccion tiene un signlficado especial porque 
poslbilita leer en la pantalla. Su valor habitual es 12, 
estado en el que se escribe en pantalla. SI el valor 
deposltado es 13, se conecta el modo de la tec I a RETURN que 
permlte la lectgra en la pantalla. 

Esto funciona de la siguiente f orma: 
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0 REM ADR842.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * LECTURA DESOE LA PANTALLA * 

4 REM * * 

5 REM ****************************** 

10 GRAPHICS OjPOSITION 2,4 

20 PRINT 1000 

30 FOR W=0 TO 500:NEXT W 

40 PRINT 2000 

50 FOR W=0 TO 500:NEXT W 

60 PRINT 3000 

70 FOR W=0 TO 500:NEXT W 

80 PRINT "4000REM**ESTA LINEA SE INCORPORA EN EL PROGRAMA 
COMO LINEA DE BASIC LEYENDO DESDE LA PANTALLA**" 

90 FOR W=0 TO 500:NEXT W 
100 PRINT "CONT" 

110 FOR W=0 TO 500:NEXT W 

120 POSITION 2,0 

130 FOR W=0 TO 500:NEXT W 

140 POKE 842,13:ST0P 

150 FOR W=0 TO 500:NEXT W 

160 POKE 842,12 

170 FOR W=0 TO 500:NEXT W 

4000 REM **ESTA LINEA SE INCORPORA EN EL PROGRAMA COMO LINEA 
DE BASIC LEYENDO DESDE LA PANTALLA** 


10: El comando GRAPHICS da lugar al borrado de pan+alla. Al 
fin y al cabo s6lo se pre+ende leer en la pan+alla lo que el 
programa escribe en ella» Es Impor+an+e comenzar a esrlblr 
en la pan+alla lo suftclen+emen+e abajo como para evt+ar que 
el mensaje del sls+ema "STOPPED ..." ocul+e lo escrl+o. 

20: Se mues+ra el ndmero 1000 en la pan+alla. MSs +arde, 
cuando lea en el la, el BASIC lo consldera como ndmero de 
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ITnea y, puesto que no le sigue nlnguna instruccion, se 
borrara la ITnea 1000 de la memoria. 

30: El bucle de espera solo sirve para seguir opticamente 
la ejecucion del programa. Sin embargo, esta ITnea deberTa 
borrarse cuando se proceda a la aplicacion real del mfsmo. 

40 a 70: Igual que 20 y 30. 

80: Sin embargo, tamblen es posible imprimir (PRINT) una 
ITnea comple+a de programa, que sera recogida por el 
programa al leer en la pantalla. 

100: Para finalIzar hay que escriblr "CONT" para conseguir 
que el programa continue su ejecucion despues de la lectura. 

120: Una vez escrito en pantalla todo lo que debera ser 
leTdo en el la, hay que emplazar el cursor invisible por 
enclma de ello en la pantalla. 

140: Ahora se POKEa a lectura y se para el programa. 

160: Despues de leer C0NT en la pantalla, el programa 
contlnua su ejecucion y se vuelve a POKEar ICAX1 a la salida 
a pantalla. 

Si ahora tec lea RUN podra observar tranquilamente como se 
van escribiendo las ITneas 1000, 2000, 3000 y 4000. A 
continuacion, el cursor salta hacia la columna 2 de la ITnea 
0 donde emite su "STOPPED IN LINE 140". Se Inicia el proceso 
de lectura, que finaliza cuando READY anuncia el final del 
programa en la parte inferior. Entonces tec lee LIST. 1 



848-863 


$350-$35F 


I0CB1 


Bloque de control 1 de I/O. 


864-879 $360-$36F I0CB2 

Bloque de control 2 de I/O. 

880-895 $$370-$37F I0CB3 

Bloque de control 3 de I/O. 

896-911 $380-$38F I0CB4 

Bloque de control 4 de I/O. 

912-927 $390-$39F I0CB5 

Bloque de control 5 de I/O 
928-943 $3A0-$3AF I0CB6 

Bloque de control 6 de I/O. 

El comando GRAPHICS abre el canal 6 hacla la pantalla 
("S:"). Por esta raz6n no se puede utlllzar el canal 6 

despuSs de sallr de GRAPHICS 0; es declr, se debe efectuar 

antes un CLOSE dlrlgldo al canal nfimero 6. Sin embargo, ello 
nos Implde llamar despu6s los comandos PLOT, DRAWTO o 
LOCATE. Aslmlsmo, los comandos PRINT dlrlgldos a la ventana 

graflca de los modos graflcos 1, 2, 12, 13 y 0 con ventana 

de texto tendrSn que dlrlglrse a I canal 6. 
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944-959 


S3B0-S3BF 


I0CB7 


Bloque de control 7 de I/O. 

El comando LPRINT u+lllza el canal 7. St este canal estS 
abler+o hacla otro perlfSrlco, se emlte un mensaje de error 
a I efectuar LPRINT. El comando LIST tambl6n pasa a travSs 
del canal 1 , aunque 6ste ya se haya ablerto para otro fin. 
LIST clerra el canal despu£s de utlllzarlo. 


960-999 $3C0-$3E7 PRNBUF 

Buffer de Impresora. En 61 se almacenan los datos antes de 
transfer trios a la tmpresora despuSs de EOL. 


1001 $3E9 STRTFLG 

Este flag muestra un valor dlferente de 0 aI pulsar la tec I a 
START durante el powerup. 


1021-1151 $3FD-$4FD CASBUF 

Buffer del cassette. 


1152-1791 S480-$6FF 

Esta zona estS dlsponlble como RAM de apltcactones para 
programas cortos en lenguaje mSquIna. Abarca 640 bytes. Sin 
embargo, la rutlna de coma flotante (floating-point) utlllza 
las dlreccJones 1406 a 1535 (= $57E-$5FF). 

No obstante s6lo la pSglna 6 (1536-1791 = S600-S6FF) ofrece 
un lugar de la memorla realmente seguro en esta zona 
Inferior. 
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1792-5377 


$700-$1501 


FMS 


El FMS (file management system) es una parte del DOS que 
crea una conexlon entre el BASIC o DUP y ia unldad de disco* 


5440- $1540- DUP 

El DUP (disk utilities package) admlnlstra dlversas 
funclones del DOS, como por ejemplo "Copy”* 

La memorla necesarla para ello puede varlar, llegando hasta 
la dlrecctfin seflalada por MEML0, como maxlmo hasta 13062 ( = 
$3306)* 

AI llamar utllldades DUP del mend del DOS, pueden produclrse 
escrlturas enclma de la zona Inferior del RAM de 
aplIcaclones* SI el diskette consta de un MEM*SAV, los datos 
de esta zona se graban en el diskette y se vuelven a colocar 
en este lugar despuSs de abandonar el DOS* Este proceso es ’ 
realmente c6modo, pero tlene el Inconventente de que la 
funcI6n MEM.SAV ocupa una parte considerable de los sectores 
del diskette, y que.su ejecuclfin requlere algdn tlempo* Por 
ello se aconseja presclndlr del MEM*SAV y reallzar las 
operaclones de diskette utlllzando el comando XI0, en lugar 
de reallzarI as a trav6s del DOS* 


Las slgulentes operaclones del DOS pueden sustltulrse 
faclImente: 


Option D; 
Option E; 
Option F; 
Option G; 


borrar flchero; 

XI0 33,?*1,0,0,”D: nombre de fIchero.ext” 
camblar nombre de flchero; 

XI0 32,^1,0,0; H D:nombre*vlejo, nombre*nuevo” 
proteger flchero; 

XI0 35,^1,0,0,"D:nombre de fIchero.ext” 
desproteger f1chero; 

XI0 36,^1,0,0,”D:nombre de fIchero.ext” 


164 



Option I; forma+ear diskette; 

XIO 254,*1,0,0,"D:" 


Option A; la emlslon del dIrector Io tambl6n puede 
sustltulrse con relatlva fact If dad* Para ello s6lo preclsa 

A 

de dos Ifneas, que pueden hallarse detris de cualquler otro 
programa BASIC: 


0 REM DIRCPRNT-BEC 

1 REM ^**************************** 

2 REM * * 

3 REM *IMP1\IMIR DIRECTO.DE DISKETTE* 

4 REM * * 

5 REM ^**************************** 

32766 END 

32767 CLR :DIM FLN$(18):CLOSE#1V:0PEN#1,,6,0,”D:*.*":F0R 
FLS=0 TO 64: INPUT#!.. ,FLN$:PRINT FLN$:NEXT FLS 


32766: Bloquea el programa BASIC anterior a esta ITnea 

contra el programa dlrector Io. 

32767: CLR borra la variable DIMenslonada. Ello es 

necesarlo para poder acceder relteradas veces a esta Ifnea. 

FLN$ es DIMensIonada en 18 caracteres y recoge el nombre del 
flchero y la cantldad de sectores ocupados, es declr 18 
caracteres. 

El comando CLOSE es una medlda de precauclfin en caso de que 
el canal de datos nCmero 1 acabe de abrlrse. 

Se abre el canal 1. El ndmero 6 Indlca como modo operatlvo 
del canal la lectura del contenldo del diskette. Los "*" se 
denomlnan "wild cards" ("comodines"); sustltuyen cualquler 
secuencla de caracteres. "*•*" sustltuye cualquler poslble 
nombre de flchero, es declr se leen todos I os flcheros 
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exlstentes 


El bucle FOR-NEXT repasa todos I os flcheros* En un diskette 
se puede grabar un mSxlmo de 64 flcheros* Aunque despuSs 
todavfa queden sectores llbres, no se podrSn grabar mSs 
flcheros porque ya se ha agotado el dlrectorlo* FInalmente 
se leera ademls la cantI dad de sectores dlsponlbles. 

Sustltuyendo FLN$ por LPRINT FLN$, la sal Ida puede tener 
lugar en Impresora* 

SI el diskette no contlene todavfa 58 flcheros, la sal Ida 
finalIza con el mensaje de ERROR- 136. 
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GRAF ICOS PLAYER - MISSILE 


53248-53505 $DOOOO-$DOFF GITA 

53248 JDOOO HPOSPO 

(W) En este reglstro se col oca la poslclfin horizontal del 
jugador (player) 0. 

Player (jugador) y missile (proyectll) son objetos grSflcos 
Independlentes del graflco normal (piayfield = campo de 
juego) en cuanto se reflere a su forma, color y movlmlento* 
Habltualmen+e tales elementos se denomlnan "sprites”* Los 
Jugadores del ATARI cubren la altura total de la pantalla en 
forma de clnta en dlrecclon vertical* La poslclon horizontal 
de esta clnta de Jugador se determlna en HPOSPn* 

Las poslclones de Ios objetos de PM se refleren a la 
dlstrlbuclSn ffslca del tubo de televlslfin. Por esta raz6n 
se admlten valores horlzontales de 0 a 277, aunque un 

i 

Jugador entre en la Imagen por la Izqulerda cuando ya haya 
alcanzado una poslclon horizontal de 45 y la abandone por la 
derecha con un valor de 210 aproxlmadamente* Los valores 
exactos pueden varlar llgeramente de un dlsposltlvo a otro* 

La poslclon vertical de un Jugador se define por la 
sltuaclSn de sus datos* Cada objeto de PM dispone de una 
zona de memorla separada* En PMBASE (54279 = $D407) se 
explica la forma en que se organ Iza toda la memorla de PM* 
Un player slempre ocupa un byte de anchura; sin embargo, 
segdn deflnlcISn hecha en el correspondlente reglstro SIZEO 
(53256 = SD008) cada bit puede representar dos, cuatro u 
ocho puntos de Imagen, lo que da lugar a dlversas anchuras 
de display del Jugador. 
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Puesto que el jugador ocupa la altura comp Ieta del tubo de 
televIslSn, abarca 128 bytes, si cada byte ocupa dos Ifneas 
de pantalla (resoluclon de dos Ifneas), o 256 bytes 
(resoluclon de una Ifnea)* SI el jugador no debe ocupar la 
altura total de la pantalla, se ponen a 0 los bytes 
correspondIentes* La manera de convertIr un byte en una 
dlsposlclon de puntos de Imagen se explica en el ap£ndlce 
juego de Caracteres* 

Este y muchos de los reglstros que slguen a contlnuaclSn 
tlenen funclones dlversas de lectura (R) y escrltura (W). 
Despues de colocar aquf la poslclfin horizontal de jugador 0, 
6sta no podrS ser lefda de nuevo con PEEK(53248), puesto que 
(R) Indlca si se producldo una collslfin (superposlclon) 
entre proyectll 0 y un campo de juego* 

El nibble Inferior Indlca en cual de los campos de juego se 
ha producldo la collslon* AI declr campos de juego nos 
referlmos a los pixel de los dI versos valores de COLOR* 


Bit 

7 6 5 4 3 

2 

1 

0 

Valor decimal 

8 

4 

2 

1 

Campo de juego 

no utilIzado 3 

2 

1 

0 

Despues de una 
(color de juego) 

collslon entre proyectll 
2, PEEK(53248) detecta un 

y 

4. 

campo de juego 


53249-53251 $D001-$D003 HP0SP1-3 

(W) Poslclon horizontal de jugador 1 a 3; 

(R) Collslon entre - proyectll 1 a 3 / campo de juego. 
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53252 


SD004 


HPOSMO 


(W) Posfelon horizontal de proyectll 0. Los proyectfles se 
mueven horlzontalmente, de fgual forma que fa expuesta para 
Ios jugadores. 

(R) Collslones entre jugador 0 y el campo de juego# 


Bit 

7 6 5 4 

3 

2 

1 0 

Valor decimal 


8 

4 

2 1 

Campo de juego 

no utilIzado 

3 

2 

1 0 

Despu6s de una 

collslon entre jugador 

0 y 

campo de juego 

(color de juego) 

3, PEEK(53252) encuentra 

un 8 

• 


53253-53255 $D005-$D007 HP0SM1-3 

(W) Poslclon horizontal de proyectll 1 a 3. 

(R) Collslon entre - jugador 1 a 3 / campo de juego. 


53256 SD008 SIZEPO 
(W) Determlna la anchura de jugador 0. 

Un jugador slempre tlene una anchura de un byte (ocho bits). 
Cada uno de los bits crea un pixel cuando esta actlvado# 
SIZEPO determlna la anchura de un pixel en puntos de Imagen# 
Un valor 0 o 2 de este reglstro da lugar a la anchura normal 
de dos puntos de Imagen por pixel# Un 1 muestra los pixel 
con una anchura de cuatro puntos de Imagen en la pantalla, 
mlentras que la del jugador sera de 32 puntos# Un 3 define 
la anchura de un pixel en ocho y la de un byte en 64 puntos 
de Imagen# 
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La al+ura de los pixel se define en bit 4 de SDMCTL (559 = 
$22F). En estado normal, con el bit 4 desactlvado, cada 
pixel tlene una altura de dos Ifneas de pantalla. Ai acttvar 
bit 4 en 556 se puede deftntr la altura en una Ifnea de TV. 


Bit tlpo 


anchura normal 


anchura doble 


10000001 (=129) 

11110000000000000000000000001111 
01000010 (= 66 ) 

00001111000000000000000011110000 
00100100 (= 36) 

00000000111100000000111100000000 
00011000 (=24) 

00000000000011111111000000000000 
00011000 (= 24) 

00000000000011111111000000000000 
00001000 ' (= 8) 
00000000000000001111000000000000 
00111000 (= 56) 

00000000111111111111000000000000 
11101111 (=239) 

11111111111100001111111111111111 


1100000000000011 

0011000000001100 

0000110000110000 

0000001111000000 

0000001111000000 

0000000011000000 

0000111111000000 

1111110011111111 


(RepresentacI6n de un jugador en resoluc!6n de una Ifnea; 
cada 1 corresponde a un punto de Imagen. En resoluc!6n de 
dos Ifneas, el tlpo de puntos que crea un byte se muestra en 
dos Ifneas de pantalla. Los pixel adquleren asf altura 
doble.) 


(R) AI ser lefdo, este reglstro muestra col(stones entre el 
proyectlI 0 y un Jugador. 


Bit 

Valor decimal 
Jugador 


7 6 5 4 

no utiltzado 


3 2 10 
8 4 2 1 
3 2 10 
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Cuando el proyec+fI 0 alcanza al jugador 0, PEEKC53256) 
encuentra un 0. 


53257-53259 $$D009-$D00B SIZEP1-3 

(W) Anchura de jugador 1 a 3. 

(R) Colls!6n entre - proyectll 1 a 3 / Jugador. 
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53260 


$D00C 


SIZEM 


(W) Cada dos bits de este reglstro deflnen la anchura de un 
proyect11: 


Bit 

7 6 5 

4 

3 

2 

1 0 

Valor poslclonal 

128 64 32 

16 

8 

4 

2 1 

ProyectI1 

—3— — 

-2“ 

— 1 

— 

—0— 

•» 

Los slgulentes 

pares de bits 

deflnen 

1 a 

anchura 


proyec+II: 


00 anchura normal, dos pun+os de Imagen por pixel 
01 anchura doble, cuatro puntos de Imagen por pixel 

10 anchura normal, dos puntos de. Imagen por pixel 

11 anchura cuadruple, ocho puntos de Imagen por pixel 

SI desea representar proyect11 3 en anchura cuadruple, 

debera actlvar los bits 7 y 6* El bit 4 actlvado conflere 
anchura doble al proyectll 2* SI los proyect!les 1 y 0 han 
de mantener anchura normal, se desactlvan los bits 3 a 0, De 
esta forma se crea el bit tlpo 11 01 00 00 cuyos valores 
poslclonales son 128+64+0+16+0+0+0 = 208* Esto slgrilflca 
que debera POKEar un 208 despu6s de SIZEM para dar lugar a 
las menclonadas anchuras de los dlversos proyectlles. 


(R) PEEK puede InvestI gar aquT si se ha efectuado una 
collslon entre jugador 0 y otro jugador. 


Bit 

Valor decImaI 
Jugador 


7 


6 5 


8 

3 


2 

4 

2 


1 0 
2 1 
1 
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53261 


$DOOD 


GRAFPO 


(W) Aquf se puede deflnlr una forma grafica para jugador 0. 
Sin embargo, esto solo tlene efecto cuando se ha 
desconectado el DMA de GRACTL (53277 = SD01D) para jugador; 
de lo con+rarlo este reglstro graflco se cargarTa a trav§s 
del acceso dI recto a la memorla (DMA) sobre Ios datos del 
jugador cargados en la memorla de PM. 

SI se desconecta DMA, el BASIC solo permlte colocar aquf un 
byte cuyo bit tlpo determine la forma del jugador en toda su 
altura, es declr se orlglnan Ifneas vertlcales. Al escrlblr 
por ejemplo un 255 despu6s de GRAFPO, se actI van Ios ocho 
bits y el jugador aparece en forma de barra de ocho bits de 
ancho, o sea de 16 puntos de Imagen si la anchura es normal. 
A causa de esta IImltaelon, la apllcaclon del reglstro 
GRAFPn es muy reduclda. 

(R) Collslon entre - jugador 1 / jugador. 


53262-53263 $D00E-$D00F GRAFP1-2 

(W) Forma de Jugador 1 y 2. 

(R) Collslon entre - jugador 1 / jugador. 


53264 SD010 GRAFP3 

(W) Forma del jugador 3. 

(R) Flag del boton de fuego 0 del Joystick. En BASIC se 
escribe en 61 a traves del reglstro de sombra STRIGO (644 = 
$284). 

El boton de fuego 0 del joystick ocupa el pin 6 del 
casqulllo 1 del joystick. SI el dlsparador no estS pulsado. 
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bit 0 tlene valor 1 que serS camblado a 0 al abrlr fuego. Al 
actlvar bit 2 de GRACTL (53277 = $D01D), todos I os reglstros 
TRIGn leen un 0 hasta que GRACTL vuelva a tomar su valor 
Inlclal* Con ello se puede regular fuego contlnuo para todos 
I os botones de fuego* 


53265 $D011 GRAFM 

(W) Forma de todos los proyectlles. Trabaja Igual que 
GRAFPn* 

Cada par de bits corresponde a un proyectlI: 

Bit 7 6 5 4 3 2 1 0 

Proyectl I —3— —2— —1— —0— 

Cada bit actlvado crea una Ifnea vertical del ancho de un 
pixel, que se extlende por toda la pantalla* Natural mente se 
puede deflnlr por separado la forma de cada proyectlI, 
actlvando los bits correspondlentes y colocando en GRAFM el 
valor decimal de este bit tlpo* 

(R) Bot6n de fuego 1 del Joystick* Reglstro de sombra STRIG1 
(645 = $285). 


53266 JD012 COLPMO 

(W) Color de jugador y proyectlI 0* Los proyectlles slempre 
tlenen el mlsmo color que el jugador que le corresponde. El 
valor de color de jugador/proyectlI 0 se define en BASIC a 
travSs del reglstro de sombra PCOLRO (704 = $2C0)* 

Cuando los cuatro proyectlles (actlvando el bit 4 de GPRIOR 
623 = $26F) se agrupan para formar un qulnto jugador, este 
Ultimo obtlene su color del reglstro C0L0R3 (711 = $$2C7), 
el reglstro de color del campo de juego 3 (no utlllzado en 
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gran parte de los modos graficos). 

(R) Bo+on de fuego 2 del joystick* Reglstro de sombra STRIG2 
(646 = S286)• 


53267 $D013 COLPM1 

(W) Valor del color de jugador/proyect11 1. Reglstro de 
sombra PC0LR1 (705 = $2CD* 

(R) Boton de fuego 3 del joystick. Registro de sombra STRIG3 
(647 - $287)• 


53268 $D014 COLPM2 

(W) Valor del color de jugador/proyectI I 2. Registro de 
sombra PC0LR2 (706 - $2C2). 

(R) Se utllfza para determinar la compatibIIidad del 
dlsposltlvo con PAL (bits 1 a 3 actlvados a 0) o NTSC (bits 
1 a 3 actlvados a 1 = decimal 14). 

NTSC es la norma de TV usada en Norteame^ica, mientras que 
PAL es la norma utilizada en gran parte de los pafses 
europeos, ast como per ejemplo en Israel. Una tercera norma 
estandar, e! sistema SECAM, ha sido Introducido en Francia, 
RDA y URSS. 


PAL esta acoplado a I tiempo de 50 hertz; es decir, un VBLANK 
de PAL se efectua cada 1/50 segundo, o sea que es un 12? mas 
lento que el NTSC con un 1/60 segundo. Sin embargo, con sus 
2,217 MHz la ejecucion en la version de 50 Hz del ATARI es 
un 25? mas rapida que en la version anericana de ’60 Hz. 

El sistema PAL trabaja ademas con 312 Ifneas de pantalla 
(scan lines) en iugor oe 2e>2. Esta diferencia se compensa al 
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comenzar los display lists de la vers!6n PAL con 24 Ifneas 
vacfas. Esto qulere declr que con un ATARI de PAL de hecho 
se puede aprovechar una seccl6n mayor de la pantalla. La 
forma de hacerlo se podra leer en el apSndlce display list. 
El efecto de color de la verslSn PAL estS ajustado por 
hardware. 


53269 SD015 C0LPM3 

Valor de color del jugador/proyectlI 3. Regls+ro de sombra 
PC0LR3 (707 = $203)• 

53270-53273 $D016-$D019 COLPFO-3 

Color de los campos de juego 0 a 3. Reglstro de sombra 
C0L0R0 a 3 (708-711 = $2C4-$2C7). 

53274 $D01A COLBK 

Valor de color del fondo (BAK). Reglstro de sombra C0L0R4 
(712 = $208). 


53275 SD01B PRIOR 

(W) Aquf se determlnan los elementos grSflcos (jugadores, 
proyectlles y campos de juego) que ocultan a otros a I 
produclrse una superposlclon. En BASIC, s6lo se puede 
escrlblr en este reglstro a trav6s del reglstro de sombra 
GPRIOR (623 = $26F), porque despu6s de PRIOR se escrlblrfa 
enclma de un POKE del BASIC con el prfixlmo ttempo- de 
mSqulna, mlentras que en PRIOR se Irfa renovando 
contlnuamente el valor colocado en el reglstro de sombra. 
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Las sigulentes priorldades se definen al activar el bit 
correspondIente (PL=jugador, PF=campo de juego, BAK=fondo): 


Bit 3 

bit 2 

bit 1 

bit 0 

PF 0 

PF 0 

P 0 

P 0 

PF 1 

PF 1 

P 1 

P 1 

P 0 

PF 2 

PF 0 

P 2 

P 1 

PF 3/P 5 

PF 1 

P 3 

P 2 

P 0 

PF 2 

PF 0 

P 3 

P 1 

PF 3/P 5 

PF 1 

PF 2 

P 2 

P 2 

PF 2 

PF 3/P 5 

P 3 

P 3 

PF 3/P 5 

BAK 

BAK 

BAK 

BAK 


SI se actlvan priorldades contradictor las en los bits 0 a 3, 
los elementos graflcos que se encuentran en la zona de 
superposicion devienen negros. 

El bit 4 activado reune los cuatro proyectlles para formar 
el qulnto jugador. 

El bit 5 activado opera con OR los valores de color 
superpuestos. 

Los bits 6 y 7 determinan el modo GITA 9 a 11. 

(mas informacion en GPRIOR (623 = $26F)) 


53276 $D01C VDELAY 

(W) Poslbillta el movlmiento alslado de jugadores y 
proyectlles cuando se ha conectado resoluc!6n de dos Ifneas. 
AI activar el bit correspondlente, el elemento en cuestion 
se mueve una Ifnea de TV hacia abajo. Si se activa DMA se da 
lugar al movimiento en mas de una Knea al camblar el bit 
tlpo en la memorla del PM. (vea programa ejemplo 
PMGRPLAY.BEC). 
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Bit 

7 

(=128) 

jugador 

3 

Bit 

6 

(= 64) 

jugador 

2 

Bit 

5 

(= 32) 

jugador 

1 

Bit 

4 

(= 16) 

jugador 

0 

Bit 

3 

(= 8) 

proyectl1 

3 

Bit 

2 

(= 4) 

proyectl1 

2 

Bit 

1 

(= 2) 

proyectl1 

1 

Bit 

0 

(= 1) 

proyectl1 

0 


53277 $D01D GRACTL 

(W) Se pued© escrlblr en los bits 0 a 2. 

SI se actlva el bit 2, todos los botones de fuego de 
joysticks y paddles conectan a fuego contlnuo a I acclonar un 
dlsparador alslado. Sin embargo es Imposlble actlvar un 
finlco boton de fuego a fuego contlnuo* Este no finalIza 
hasta que el bit 2 vuelva a tomar el valor 0* 

Con bit 1 se act I van los jugadores y con bit 0 los 
proyectlles del grSflco de PM. 


53278 SD01E HITCLR 

(W) Cualquler valor escrlto en este reglstro borra todos los 
reglstros de collslon del PM. Puesto que un reglstro de 
collslon solo podra registrar una nueva collsI6n si ha sldo 
borrado prevlamente, se aconseja escrlblr con regularldad en 
HITCLR. 


53279 SD01F CONSOL 

Flag de las tec I as de fundon OPTION, SELECT y START. 
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SI no se ha pulsado nlnguna tecla los bits 0 a 2 estSn 
actlvados, con lo que CONSOL leerS un 7. La pulsacI6n de un 
tecla vuelve a colocar el bit correspondlente a 0: 


Tecla 

bit 

estado 

del 

bit correspondIente 

OPTION 

2 

0 

0 

0 

0 

1 

1 

i i 

SELECT 

1 

0 

0 

1 

1 

0 

0 

i i 

START 

0 

0 

1 

0 

1 

0 

1 

0 1 

Valor 

decimal 

0 

1 

2 

3 

4 

5 

6 7 


Los dos slgulentes programas ejemplo le mostrarSn ahora la 
forma de programar realmente el grSflco de PM (aunque la 
expllcac!6n detallada de los reglstros se harS mSs 
adelante): 


0 REM PMGRPLAY.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * R0MANTIC0 AMANECER * 

4 REM * * 

5 REM ****************************** 

10 GRAPHICS 23 

20 POKE 708,226:POKE 709,208:P0KE 710,6:P0KE 712,128 
30 COLOR 1:F0R X=0 TO 5:PL0T X,0:DRAWT0 X,95:NEXT X 
40 FOR X=152 TO 159:PL0T X,0:DRAWT0 X,95:NEXT X 
50 FOR Y=0 TO 69:READ R:PL0T 6,Y:DRAWT0 R,Y:NEXT Y 
60 FOR Y=0 TO 53:READ L:PL0T L,Y:DRAWT0 151,Y:NEXT Y 
70 DATA 

37,38,39,40,40,41,41,41,40,38,36,35,34,33,33,34,33,35,36,38,3 
7,37,36,35,34,28,25,24,23,22,23,24,24 
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80 DATA 

26.27.26.24.22.20.17.18.19.20.20.18.16.14.11.8.7.8.7.9.8.10.1 
3,15,15,14,14,10,9,11,10,10,9,7,8,7 

90 DATA 

148,146,144,141,138,139,143,147,148,143,141,147,145,143,145,1' 

43,140,137,134,131,128,129,130,134,138,143,141 

100 DATA 

139.137.138.140.136.132.128.123.124.125.128.131.135.139.143.1 
49,147,145,142,139,135,131,126,121,119 

110 DATA 120,122,125,131 
120 COLOR 3:Z=Z+1 

130 X=INT(RND(0)*80)+40:Y=INT(RND(0)*70):PL0T X,Y 
140 IF Z<30 THEN 120 

150 COLOR 2:F0R Y=0 TO 7:PL0T 6,81+Y:DRAWT0 52,84+Y:DRAWT0 

80,80+Y:DRAWT0 135,86+Y:DRAWT0 150,82+Y:NEXT Y 

160 FOR Y=86 TO 95:PLOT 6,Y:DRAWT0 150,Y:NEXT Y 

200 POKE 704,34 

210 POKE 623,8 

220 POKE 559,42 

230 P=PEEK(106)-20 

240 POKE 54279,P 

250 PMBASE=P*256 

260 POKE 53256,3 

270 POKE 53277,2 

280 X=30:Y=91 

300 POKE 53248.X 

310 FOR J=PMBASE+512 TO PMBASE+639:P0KE J,0:NEXT J 
320 FOR J=PMBASE+512+Y TO PMBASE+512+31+Y:READ D:POKE 
J,D:NEXT J 
330 DATA 

24,60,60,60,126,126,126,126,126,255,255,255,255,255,255,255 
340 DATA 

255,255,255,255,255,255,255,126,126,126,126,126,126,60,60,60, 

24 

400 S=STICK(O) 

410 IF S=15 THEN 400 
420 IF S=7 THEN X=X+1 
430 IF S=11 THEN X=X-1 
440 POKE 53248.X 
450 IF S=13 THEN GOSUB 500 
460 IF S=14 THEN GOSUB 600 
470 GOTO 400 
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500 ?F Y>92 THEN RETURN 
510 FOR J=32 TO 0 STEP -1 

520 POKE PMBASE+512+Y+J,PEEK(PMBASE+511+Y+J+J) 

530 NEXT J 

540 C=C-1:IF C<0 THEN C=0 
550 C0=INT(C/i5)*2 

560 POKE 704,34+CO:POKE 712,128+C0/2:P0KE 709,2'>8+C0 
570 Y=Y+1 
580 RETURN 

600 IF Y<16 THEN RETURN 
610 FOR J=0 TO 32 

620 POKE PMBASE+511+Y+J,PEEK(PMBASE+512+Y+J) 

630 N£XT J 

640 C=C+1 : IF 075 THEN C=75 
650 C0=I NT(C/15)*12 

660 POKE 704,34+CO:POKE 7 1 2,128+C0/2:P0KE 709,208+CO 
670 Y=Y-1 
680 RETURN 


10: El comando GRAPHICS se ref Iere tan solo al "campo de 
juego", mfentras que Ios elementos de PM son completamente 
Independlen+es del mlsmo. 

20: Se colocan los valores de color de los puntos grlflcos 
("campos de juego") y del fondo en sus correspondlentes 
reglstros de color. 

30 a 110: Dlbujan de COLOR 3 la sllueta de un arbol de 
fronda a la Izqulerda y un abeto en el margen derecho de la 
pantaI la. 

120 a 140: Dlbujan (PLOT) a IeatorIamente trelnta es+rellas 
en el clelo noc+urno. 

150 a 160: Plasman una cordillera plntoresca en la pantaI la 
de TV. 

200: Ahora comlenza grSflco de PM. El color del jugador 0 
se coI oca en el correspondlente reglstro de color. 
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210: La prior I dad se define de tal forma que montafias y 
Srboles se encuentren por delante del jugador 0; el fondo 
representa a I clelo oscuro, que se encuentra por detrSs del 
jugador 0. 

220: Se conectan la anchura normal del campo de Juego (bit 
1 = 2), el jugador (bit 3 = 8) y el acceso dlrecto a la 
memorla (bit 5 = 32). 

230: En RAMTOP se averlgua dfinde se encuentra el Ifmlte de 
la memorla. GRAPHICS 23 ocupa casl 16 pSglnas con su display 
list. Puesto que el grSflco de PM debe trabajar en 
resoluc!6n de dos Ifneas, basta aquf con 4 pSglnas. Esto 
sign I flea que la dlrecclfin bSsIca del grSflco de PM debe 
encontrarse unas 20 pSglnas por debajo de RAMTOP. Este valor 
se define en P. 

SI cuenta aquf como prueba menos pSglnas y resta por ejemplo 
un 8 de RAMTOP, mSs adelante podrS ver en el grSflco de 
pantalla, de qufi forma el jugador se encuentra en la memorla 
de pantalla y se mueve en el la. 

240: El reglstro 54279 es PMBASE, dlrecclfin Inlclal de la 
memorla de PM, Puesto que PMBASE trata sfilo con el byte HI 
al Igual que RAMTOP, la verdadera 

250: dlrecclfin Inlclal se obtlene aI mu I tip 11 car el valor 
por 256. 

260: El jugador 0 devlene de anchura cuSdruple. Cada uno de 
I os ocho bits es representado con una anchura de ocho puntos 
de Imagen; el jugador ocupa un total de 64 puntos de Imagen 
en la pantaI la. 

270: Conecta jugador. 

280; Coordenadas Inlclales del Jugador. 
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300: En HP0SP0 se col oca X=30 como posfcI6n horizontal del 
jugador 0. Es+a pos!cI6n correspond© a I borde extremo 
(visible) de la pan+alla de TV* Al desplazar el jugador adn 
mSs hacla la Izqulerda, 6ste desaparecerS de la pantalla, 
pero no se produce una InterrupcI6n por ERROR- hasta que el 
valor de X no sea Inferior a 0, o el del I ado derecho no sea 
mayor que 255. 

310: Las poslclones de memorla 512 a 639 despu6s de PMBASE 
estSn reservados para jugador 0 con una resoluclon de dos 
Ifneas. Aquf se borra esta zona de la memorla, aunque ello 
no es absolutamente necesarlo. Sin embargo, una Interrupcl6n 
del programa, provocada por ejemplo con BREAK, no borra esta 
memorla de PM; asf puede ocurrlr que, al Inlclar de nuevo el 
programa, aparezcan dos jugadores en la pantalla. Uno de 
ellos, el Inm6vll, se encuentra en la pos!c!6n vertical 
donde se produjo tambl6n la lnterrupc!6n del programa, 
mlentras que el segundo jugador se encuentra en el lugar 
hacla el cual ha sldo cargado por el programa que vuelve a 
ejecutarse, o sea en su posicl6n InIclaI• 

SI ejecuta este programa, lo Interrumpe con BREAK y despu£s 
vuelve a entrar RUN, puede observar que el jugador aparece 
prlmero en la antlgua posIc!6n vertical, a contlnuacI6n es 
borrado por esta Ifnea y flnalmente es plantado en su 
posIc!6n de sal Ida. 

Serfa, pues mSs correcto borrar en primer lugar la memorla 
de PM y conectar despuSs los jugadores en el reglstro 53277. 

320: Los bytes de datos que representan a I jugador son 
lefdos por la zona de memorla correspondlente aI jugador 0. 
Un jugador slempre tlene un ancho de un byte y, con 
resoluc!6n de dos Ifneas, una altura de 128 bytes. Estos 128 
bytes dlsponen de las cel das de memorla PMBASE+512 a 
PMBASE+639. El primer byte ser£ lefdo en la cel da de memorla 
sltjada Y=91 (valor de la poslclon vertical) por debajo de 
PMBASE+512 y le suceden los 31 bytes slgulentes. 
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330 y 340: Contlenen los DATA que represen+an a! jugador. 
Cada valor decimal represen+a un bit tlpo. Cada bit actlvado 
crea un pixel cuya anchura ha sldo deflnida en el reglstro 
correspond I ente (en este caso culdruple = ocho puntos de 
Imagen), y cuya altura es de dos ITneas de pantalla en 
resolucion de dos ITneas, y de una en resoluc!6n de una 
ITnea, la cual estl deflnida en el reglstro 559 al actlvar o 
desactlvar el bit 4. 

400: En esta ITnea comlenza la lectura del joystick, Es 
aconsejable recoger el valor hallado en STICKO (632 = $278) 
en una variable, para evltar el uso reiterado de la larga 
expreslon STICK(O). Por clerto, el comando BASIC STICK(O) no 
tlene otro efecto que la InstruccI6n PEEK(632), pero 

STICK(O) ocupa menos memoria. 

/ 

410: Cuando STICK(O) esta en reposo (=15) vuelve a ser 
leTdo Inmedlatamente. 

420: La palanca de mando estl dlrlglda a la derecha, con lo 
que el jugador debera moverse hacla la derecha, o sea que su 
posIci6n horizontal deberl tomar mayor valor. 

430: Movlmlenlo correspond Iente hacia la Izquhv da. 

440: La poslclon horizontal del jugador es escrlta 
slmplemente en el reglstro que le corresponde. Este proceso 
es f Sc 11 y rapido. Los jugadores se mueven con bastante 
rapldez en el sentido horizontal. 

450: No asT el movlmlento vertical. Un jugador se mueve en 
sentido vertical a I trasladar sus datos en su zona de 
memorla. SI el jugador debe moverse hacla abajo, todos sus 
bytes de datos tamblln deben trasladarse una cel da de 
memoria hacla aba jo. Cuantos mis datos abarque el jugador, 
mis tlempo tardarl el proceso. Usted puede observar en la 
pantalla como el jugador va descendlendo ITnea por ITnea. La 
rutlna encargada de ello estl colocada en el subprograma de 
la ITnea 500. 
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460: El movlmlen+o ascenden+e se efec+da de forma anSloga. 
470: Despu6s de leer todas las dIrecclories del movlmlento, 

* 

el programa es devuelto a la slgulente lec+ura del joystick. 

500: AquT comlenza la rutlna que control a el movlmlento 
descendente. Sin embargo, a I alcanzar la poslcI6n Y=92, 
deberfa Impedlrse su contluaclfin. Una lectura de este tlpo 
es absolutamente necesarla, ya que en caso contrarlo los 
datos van trasladSndose desenfrenadamente por zonas de la 
memorla a las que no deberfan acceder, como por ejemplo por 
sectores destlnados a otro jugador. 

510: Puesto que en este caso el jugador tlene una altura de 
32 bytes, hay que trasladar 33 (de 0 a 32) bytes. En el 
movlmlento descendente se comlenza por el byte m5s bajo que 
se coloca una dlrecclon mas abajo; a contlnuaclon se coge el 
byte Inmedlatamente superior que tamblen se coloca hacla 
abajo, etc. SI pone atenclon, podrS apreclar como el jugador 
se estlra por un momento en cada Ifnea a I moverse hacla la 
Ifnea Inferior. Y tal como suena este proceso, asf es su 
duraclon en BASIC. 

Despu6s de trasladar todos los bytes hacla poslclones 
Inferlores, habrS que trasladar ademSs otro byte sltuado en 
poslcl6n supe lor. Este byte contlene un 0 porque el jugador 
finallza con el. De esta forma se borra el ultimo byte de su 
antlgua cel da despu§s de haberlo trasladado hacla abajo. 

540 a 560: Cuando en este romantlco programa, el sol 
-jugador 0“ sale lentamente detrSs de las montafias de 
COLOR-2 y proyecta su luz roja a traves de los Srboles de 
C0L0R-1, tambI6n deberfa claear. El color del sol pasa 
lentamente de naranja a bianco, el clelo devlene de color 
azul claro apagando las estrellas de RANDOM, y los prados 
relucen en un verde que transmite la sensaclon de frescura. 
IDe esta forma puede que Incluso la abuellta se entuslasme 
por el ordenadorl 
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Estas ITneas proceden a camblar los valores de color cuando 
el jugador (sol) va descendlendo, o sea con la puesta de 
sol; los coI ores devlenen mSs oscuros y el valor de clari dad 
dlsmlnuye. 

570: Ahora s6lo resta actual Izar el valor de Y y volver con 
580: RETURN a I programa principal. 

600 a 680: Su es+ruc+ura es anSloga para reallzar el 
movImIent ascendente• 

La forma de trabajar con los reglstros de col!s!6n se 
muestra en el piayer/mlsslle-lIgh+show: 


0 REM PMGRC0LL.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * PLAYER/MISSILE LIGHT-SHOW * 

4 REM * * 

5 REM ^******^*'‘HHt**********#»#*** 

10 GRAPHICS 19 

200 POKE 704,50:POKE 705,152 

210 POKE 623,8+32 

220 POKE 559,42 

230 P=PEEK(106)-8 

240 POKE 54279,P 

250 PMBASE=P*256 

260 POKE 53256,3:P0KE 53257,3 

270 POKE 53277,2 

280 X0=30:Y0=92:XI=190:Y1=16 

300 POKE 53248,X0:POKE 53249,XI 
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310 FOR J-f*BA$E+512 TO PMBA$E+767:P0KE 
J,0:NEXT J 

320 FOR J«^MBA$E+512+YO TO 
P»©ASE+512+31+Y0:READ D:POKE J,D:NEXT 
J:RESTORE 

330 FOR J-PMBASE+640+Y1 TO 

PMBASE+640+31+Y1:REAO D:P0KE J,D:NEXT J 

340 DATA 

24,60,60,60,126,126,126,126,126,255,255,2 

55,255,255,255,255 

350 DATA 

255.255,255,255,255,255,255,12.6,126,126,1 

26,126,60,60,60,24 

400 S-STICK(O) 

410 IF $-15 THEN 700 

420 IF S-7 THEN XO-XO+1 

430 IF S-11 THEN XO-XO-1 

440 POKE 53248,XO 

450 IF S-13 THEN GOSUB 500 

460 IF $-14 THEN GOSUB 600 

470 IF PEEK(53260)-2 THEN GOSUB 1000 

480 GOTO 700 

500 IF Y0>92 THEN RETURN 
510 FOR J-^2 TO 0 STEP -1 
520 POKE 

PWiASE+512+Y0+J,PEEK(PMBASE+511+Y0+ J) 

530 NEXT J 

540 YO-YO+1sRETURN 

600 IF Y0<16 THEN RETURN 

610 FOR J-0 TO 32 

620 POKE 

PMBASE+511+YO+J,PEEK(PMBASE+512+Y0+ J) 

630 NEXT J 

640 YO-YO-1:RETURN^ 

700 S-STICK(I) 

710 IF S—15 THEN 400 

720 IF S-7 THEN XI-XI+1 

730 IF S-11 THEN X1-X1-1 

740 POKE 53249,XI 

750 IF S-13 THEN GOSUB 800 

760 IF S-14 THEN GOSUB 900 

770 IF PEEKC53261)»1 THEN GOSUB 1000 

800 IF Y1>92 THEN RETURN 

810 FOR J-32 TO 0 STEP -1 

820 POKE 

PMBASE+640+Y1+J,PEEK(PMBASE+639+Y1+3) 

830 NEXT J 

840 Y1-Y1+1:RETURN 

900 IF Y1<16 THEN RETURN 

910 FOR J-0 70 32 

920 POKE 

PMBASE +639+Y1+J,PEEK(PMBASE +640+Y1+ J) 

930 NEXT J 

940 Y1-Y1-1:RETURN 

1000 SOUND 0,3,6,8 

1010 FOR Q-0 TO 6:P0KE 712,Q*2:NEXT 0 

1020 POKE 53278,255 

1030 POKE 712,0 

1040 SOUND 0,0,0,0 

1050 RETURN 
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210: AdemSs de la prlorldad de jugadores y campos de juego, 
en este caso tambl£n se actlva el tercer color resul+ante de 
la operaclon OR a I produclrse la superposlclon (+32), Por 
supuesto podra POKEar Inmedlatamente un 40. 

220: DMA Igual que antes. 

230: En este caso, graclas a la reduclda ocupac!6n de 

memorla del modo graflco 3 (o sea 19), la base de PM solo 
debe encontrarase a ocho pSglnas debajo del RAMTOP. 

260: Ambos jugadores adquleren anchura cuadruple. 

280: Jugador 0 comlenza en la parte Inferior Izqulerda y 

jugador 1 en la superior derecha. 

310: Esta vez se borra la memorla correspond Iente a los 

jugadores 0 y 1; a contlnuaclon la Ifnea 

320: lee los datos del jugador 0 y la Ifnea 

330: los datos del jugador 1. Puesto que ambos han de tener 

la mlsma confIguraclon, despuSs de RESTORE el jugador 1 lee 
en Ifnea 330 los mlsmos 

340 y 350: DATA que el jugador 0. 

400 a 460: Efectdan ia lectura de STICK(O) y saltan hacla 
la Ifnea 700, donde comlenza el turno de STICK(l). 

470: SI PEEK(53260)=2, el jugador 0 ha tropezado con 

jugador 1. Se produce un sal to hacla la subrut Ina en Ifnea 

1000. 

500 a 640: Se encargan de efectuar el movlmlento vertical 
de jugador 0. 

700 a 760: Leen a STICKU). 

770: SI se lee un 1 en el reglstro 53261slgnlflca que el 
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jugador 1 ha tropezado con jugador 0. 


800 a 940: Reallzan Ios traslados vertlcales de jugador 1. 

1000: SI permlte que Ios dos jugadores se lancen uno sobre 

o+ro, esto se convlerte en un Inflerno. 

Pero eso tendra que observarlo usted mlsmo. 

1020: En nlngGn caso debemos olvldar de volver a borrar 

Inmedla+amen+e los reglstros de collslon, para que estas 
pueden contlnuar producl6ndose. 

Los dos jugadores clrculares tlenen aspecto de faros. 
Jugador 0 luce un rojo bastante puro y jugador 1 brMia 
casl en cyan (azul DIN). Cuando ambos se superponen, la 
superftcle de In+ersecclon adqulere un color amartllo 
verdoso, lo que corresponde casl a la realidad ftslca. (De 
luz proyectada roja y verde resulta una mezcla de color 
amar11lo.) 

Resumfendo el cSlculo del color de cruce: 


Rojo 


(color 

3, 

clari dad 

2) 

0 

0 

1 1 

0 

0 

1 

0 

(= 

3*16 

+ 2 = 

50) 













0 

Cyan 


(color 

9, 

clari dad 

8) 

1 

0 

0 1 

1 

0 

0 

0 

(= 

9*16 

+ 8 = 

152) 














Verde 


(color 

11, 

clari dad 

10) 

1 

0 

1 1 

1 

0 

1 

0 

(= 

11*16 

+ 10 = 

186) 















Por cler+o, si Interrumpe un programa PM con BREAK, es 
normal que en lugar del jugador o jugadores permanezcan 
clntas centelleantes. Suele bastar un RESET para ellmlnar 
este efecto mo Iesto. 
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SON I DO 


53760 $D200 AUDF1 

El ATARI esta equlpado con cuatro generadores de son I do 
control ados por el POKEY (P0tencI6metro y chip KEYboard). A 
cada generador de son I do le corresponde un registro para la 
frecuencla y un registro de control destlnado a la 
Intensldad y dtstorslon del sonldo. La d!storsI6n es 
produclda por Ios polycounter y reglstros de desplazamlento 
de POKEY. 

(W) AUDF1 recoge la frecuencla del canal de sonldo 1. Pueden 
escrlblrse valores de 0 a 255. POKEY les suma un 1, con lo 
que se actI van valores entre 1 y 256. Este valor determIna 
la cantldad de Impulsos que han de entrar para poder emltlr 
un Impulso. Esto signlflea que cuanto mayor sea el valor 
colocado en este registro, menor serS la cantldad de 
Impulsos emltldos. Nosotros perclblmos una frecuencla baja 
como sonldo grave. 

SI sabe mas de mtislca que lo de tener que soplar para hacer 
sonar una flauta, podrS determlnar el valor exacto a colocar 
en este registro para consegulr un clerto sonldo. La f6rmula 
es la slgulente: 

INT(31960/(f+2)) 

donde hay que sustltulr f por la frecuencla en hertz (Hz) 
deI son I do desea do• 

(R) Valor de paddle (raquetas) 0. Registro de sombra 624. 


53761 SD201 AUDC1 

(W) Los tres bits superlores se utlllzan para determlnar el 
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tlpo de dlstorslfin (ruldo): 

Bit Valor de dlstorslfin Proceso de modulacl6n 


7 

6 

5 


(BASIC) 

(POKEY) 



0 


0 


0 



0 

polycounter 

de 

17 bits 




0 

0 

1 


2 

solo polycounter 

de 

5 bits 

0 


1 


0 



4 

polycounter 

de 

4 bits 




1 

0 

0 


6 

solo polycounter 

de 

17 bits 

0 

1 

1 


8 

solo polycounter 

de 

5 bits 

1 

0 

1 


10 

sin dlstorslfin 



1 

1 

0 


12 

s6lo polycounter 

de 

4 bits 

1 

1 

1 


14 

sin dlstorslfin 




Los bits 0 a 3 toman el valor decimal de la Intensldad de 
sonldo. Se admlten valores de 0 (0000) a 15 (1111). 

El comando BASIC SOUND k,f,r v se dlrlge con k a uno de los 
canales de sonldo de 0 a 3. El nCimero de ldentlfIcaclSn f 
determlna la frecuencla en el reglstro AUDFn; r determlna la 
dlstorslfin (valores pares de 0 a 14) y v la Intensldad del 
sonldo entre 0 y 15 en el reglstro AUDCn. 

(R) Paddle 1. 


53762 

(W) Frecuencla 
(R) Paddle 2. 


53763 SD203 AUDC2 


$D202 AUDF2 

del canal de son I do 2. 
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(W) Regls+ro de control correspond Iente aI canal de son I do 

2 . 

(R) Paddle 3. 


53764 $0204 AUDF3 

0 

(W) Frecuencla del canal de son I do 3. 
(R) Paddle 4. 


53765 $0205 AUDC3 

(W) Regls+ro de control correspondIen+e aI canal de son I do 

3. 

(R) Paddle 5. 


53766 $0206 AUDF4 
(W) Frecuencla del canal de son I do 4. 
(R) Paddle 6. 


53767 $D207 AUDC4 

(W) Regls+ro de control correspond Ien+e aI canal de son I do 
4. 

(R) Paddle 7. 
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53768 


$D208 


AUDCTL 


(W) Control de son I do, AUDCTL es un regls+ro de selecclfin 
que Influye en todos los canales de son I do, AI actlvar los 
dlversos bits se puede dar lugar a los efectos slgulentes: 

Bit Efecto 

7 polycounter de 17 bits se pone a 9 bits 
6 canal 1 es Indexado a 2,217 MHz 

5 canal 3 es Indexado a 2,217 MHz 

4 comunlca los canales 1 y 2 (16 bits) 

3 comunlca los canales 3 y 4 (16 bits) 

2 flltro de tonos agudos en canal 1,Indexado por canal 4 

1 flltro de tonos agudos en canal 2,Indexado por canal 4 

0 conmuta el clclo principal de 64 kHz a 15 kHz 


(R) Lee todos los paddles al mlsmo tlempo, cada uno de ellos 
en un bit. 
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VAR IADO 


53770 SD20A RANDOM 

(R) En es+e regls+ro se leen Ios valores alea+orlos. 
Contlene Ios ocho bits super Iores del polycounter de 17 
bits. De esta forma, aquf se encuentran contlnuamente 
verdaderos ndmeros aleatorlos entre 0 y 255. El comando 
BASIC RND(O) tamb!6n hace referenda a este reglstro, pero 
convlerte el ndmero aleatorlo hallado en un ndmero decimal 
de valor posltlvo y menor que 1, dlvldlendo el valor de 
RANDOM entre 256. De esta forma, las Instrucclones PRINT 
RND(O) y PRINT PEEK(53770)/256 tlenen el mlsmo resultado. 

Para obtener ndmeros aleatorlos enteros entre 5 y 14, se 
programa en BASIC INT(RND(0)*10)+5), donde RND(0)*10 nos da 
un valor entre 0 y 9,99... que INT convlerte en ndmeros 
enteros (de 0 a 9). Al sumarles 5, se obtlenen los valores 
deseados entre 5 y 14. INT(PEEK(53770)/25.6)+5 produce el 
mlsmo resultado. 


53774 $D20E IRQEN 

(W) RestltuclSn de lnterrupcI6n. Reglstro de sombra POKMSK 
(16 = $10); vea mSs lnformacI6n en ese reglstro. 


54272 $D400 DMACTL 

Reglstro de control de DMA. En BASIC se escribe en 61 a 
trav6s del reglstro de sombra SDMCTL (559 = $22F). (vea mis 
Informacion allf) 
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54273 


$D401 


CHACTL 


Reglstro de control del modo carficter. En £1 se escribe a 
trav£s del reglstro de sombra CHACT (755 = $2F3). (vea mSs 
Informacl6n en ese reglstro) 


54274,54275 $0402,$0403 DLISTL/H 

Bytes L0 y HI del puntero que apunta hacla el display list, 
(vea ap£nd!ce display list). 


54279 $0407 PMBASE 

(W) Byte HI de l a dlrecc!6n InIcIa I de PM. 

Exlste un piano de memorla para los datos de jugadores y 
proyectiles, que aslgna una poslcl6n de memorla propla a 
cada elemento. Un player slempre tlene un byte de ancho y se 
extlende por toda la pantalla en sentI do vertical, 
sallendose Incluso de la ventana grSflca manejada por los 
modos grSflcos. En resoluc!6n de dos Ifneas un jugador tlene 
una altura de f28 bytes; en resoluclon de una Ifnea 
necesltara el doble, es declr 256 bytes de memorla. 

Los cuatro proyectiles que se pueden agrupar para formar un 
qulnto jugador, ocupan juntos la mlsma memorla que un 
jugador solo. De ello, junto con una zona de protecclfin no 
utlllzada al prlnclplo de la memorla de PM, resulta un total 
de memorla necesarla de un kbyte en resoluclfin de dos 
Ifneas, y de 2 kbyte en resoluclfin de una Ifnea. 

La dlstrlbucl6n habltjal de la memorla de este reglstro se 
muestra en la flgura 5: 
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PLANO DE MEMORIA - PM 


PMBASE 

+384 

+512 

+640 

+768 

+896 

+1024 


Resoluclon de ResolucJSn de 
dos ITnea una Ifnea 


sin aprovechar 


M3 

M2 

Ml 

M0 

jugador 0 


Jugador 1 


Jugador 2 



sin aprovechar 


M3 


Jugador 3 


M2 


Ml 


MO 


jugador 0 


jugador 1 


jugador 2 


jugador 3 


+768 

+ 1024 

+ 1280 

+ 1536 

+ 1792 

+2048 
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Es absolutmente necesarlo respetar esta dlsposlcI6n, puesto 
que funciones tales como los regls+ros de collsI6n etc* se 
apoyan en PMBASE y en esta dlsposlcl6n* Es aconsejable 
colocar la tab I a de PM a I final de la memorla RAM mSs alta, 
o sea dlrectamente del ante del display list y la memorla de 
pantalla* Sin embargo, no exlste nlngtfn Impedlmento para 
utlllzar cualquler otra zona (proteglda)* Sea cual sea la 
pSglna (byte HI de la dlrecc!6n) donde comlenza la memorla 
de PM, hay que deposltar este valor en PMBASE* 

Para encontrar una dlreccI6n Inlclal de grSflco PM segura y 
proteglda pueden reallzarse "las slgulentes operaclones: 
redondear por exceso la memorla necesarla del modo grSfIco 
actlvado y de su correspondlente display list a pSglnas mSs 
la longltud de la tabla de PM, o blen restar 4 o 8 pSglnas 
de RAMTOP* 

La lectura del puntero hacla el display list SDLSTL (560,561 
= $230,$231) efectuada despu^s de conectar el modo grSflco 
deseado conduce al mlsmo resultado. Esta dlrecclfin, 
redondeada por exceso a pSglnas comp I etas y restSndole la 
memorla necesarla de PM, tambl^n nos da la dlrecc!6n Inlclal 
de PB, cuyo byte HI debe ser colocada en PMBASE* 

Partlendo de PMBASE podrS calcular el valor de APPMHI (14,14 
= $E,$F), sumando a PMBASE la memorla necesarla de cuatro 
pSglnas en resoluc!6n de dos Ifneas, y de ocho pSglnas en 
resoluc!6n de una Ifnea. APPMHI marca el Ifmlte Inferior del 
display list y de la memorla de pantalla. 


54281 $D409 CHBASE 

(W) Dlrecc16n Inlclal del juego de caracteres est^ndar del 
ATARI, almacenado naturalmente en la memorla RAM* El juego 
estci compuesto por 128 caracteres de ocho bits cada uno, 
ocupando justamente cuatro pSginas o un kbyte. En el 
reglstro de sombra CHBAS (756 = $2F4) el programador de 
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BASIC puede camblar el puntero que apunta hacla el juego de 
caracteres. (vea reglstro de sombra CHBAS) 


En el ap6nd!ce juego de caracteres podrS encontrar mSs 
IndIcaclones sobre la estructura del juego es+Sndar y la 
poslbllldad de apllcar Ios juegos de deflnlc!6n prop I a. 


DISPLAY LIST 


El display list (DL) es un programa en lenguaje mSqulna del 
mtcroprocesador ANTIC. Este programa determlna de qu6 zona 
de memorla deben sacarse Ios datos grSflcos y de qu6 forma 
se representarSn en la pantalla. Cuando en BASIC se entra un 
comando GRAPHICS, con ello se reserva automStlcamente la 
memorla necesarla para la pan+alla y del ante de esta memorla 
se coI oca el DL correspondlente. Sin embargo, cuando se 
conoce la estructura del DL y el juego de Instrucclones de 
ANTIC, es poslble modlflcar el DL o confecclonar un DL 
enteramente personal, en el que pueden mezclarse todas las 
postblIIdades de representacI6n grSflca de ANTIC. 

La estructura de un DL puede verse en la pantalla con ayuda 
del programa ADR560.BEC, que ya se ha d!scut!do en SDLSTL 
(560,561 = $230,$231). 

ANTIC procesa las slgulentes Instrucclones de 8 bits: 
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1 JMP, comando de sal to Incondlclonado. Inmedlatamente 
detrSs de este comando debe segulr la dlreccl6n del sal to en 
el orden byte LO y HI* Esta lnstruccl6n se utlllza por 
ejemplo para saltar hacla una subrutlna desde el DL, como 
puede ser un segundo y DL que emlte varlas Ifneas grIf leas 
por enclma o por debajo de la ventana grSflca normal, y que 
trabaja Independlentemente del DL principal* 

2 Modo carlcter, llamado en BASIC a trav£s de GRAPHICS* Una 
ITnea de modo esta dlvfdlda en 40 poslclones de escrltura y 
tlene una altura de ocho ITneas de TV. Se permlte 
representar dos colores a I mlsmo tlempo* 

3 Modo carScter, 40 poslclones de escrltura, 10 scan lines, 
2 coIores* 

4 Modo caracter (GRAPHICS 12), 40 poslclones de escrltura, 
8 ITneas, 5 col ores* 

5 Modo caracter (GRAPHICS 13), 40 poslclones de escrltura, 
16 ITneas, 5 col ores* 

6 Modo carlcter (GRAPHICS 1), 20 poslclones de escrltura, 8 
scan lines, 5 colores* 

7 Modo caracter (GRAPHICS 2), 20 poslclones de escrltura, 
16 ITneas, 5 colores* 

t 

8 Modo caracter (GRAPHICS 3), 40 pixel por ITnea, cada 
ITnea de modo con altura de 8 ITneas de TV, 4 valores de 
COLOR. 

9 Modo bit-map (GRAPHICS 4), 80 pixel, 4 scan lines, 2 
valores de COLOR* 

10 Modo bit-map (GRAPHICS 5), 80 pixel, 4 ITneas, 4 valores 
de COLOR. 
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11 Modo bit-map (GRAPHICS 6), 160 pixel, 2 Ifneas, 2 

vaalores de COLOR# 

12 Modo bit-map (GRAPHICS 14), 160 pixel, 1 Ifnea, 2 

valores de COLOR# 

13 Modo bit-map (GRAPHICS 7), 160 pixel, 2 Ifneas, 4valores 
de COLOR. 

14 Modo bit-map (GRAPHICS 15), 160 pixel, 1 Ifnea, 4 

valores de COLOR# 

15 Modo bit-map (GRAPHICS 8), 320 pixel, 1 scan line, 2 
valores de COLOR# 


(La Indlcaclon de pixel por Ifnea hace referenda a la 
anchura normal de pantalla) 

0 una Ifnea de TV vacfa. 

16 dos Ifneas de TV vacfas# 

32 tres Ifneas de TV vacfas# 

48 cuatro Ifneas de TV vacfas. 

64 clnco Ifneas de TV vacfas# 

80 sels Ifneas de TV vacfas. 

96 slete Ifneas de TV vacfas# 

112 ocho Ifneas de TV vacfas# 
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64 actlvado ademSs del comando Ifneas de modo (o sea bit 
6 actlvado) 

LMS (load memory scan), es declr los datos grSflcos son 
lefdos en la memorla de pantalla. Cada Instruccl6n LMS 
debe Ir segulda de la direccl6n Inlclal de los datos de 
pantalla en forma de bytes LO y HI. 

65 JVB, salto condlclonado por el VBLANK. Con esta Instruc- 
cI6n sltuada a I final del DL se conslgue la slncronlza- 
cl6n entre ordenador y tubo de televlsl6n. Una vez Ile- 
gado al final del DL, el ordenador espera la serial del 
VBLANK hasta que vuelve a saltar al prlnclplo del DL, 
empezando asf una nueva pasada slncronlzado con el tubo 
de TV. AI Igual que en todas las Instrucclones de sal¬ 
to, tambl6n JVB debe Ir seguldo dlrectamente de la 
dlreccl6n de salto (LO,HI). 

128 DLI (display list Interrupt), sumado a I comando 

de Ifneas de modo, el valor 128 (bit 7) poslblllta la 
!nterrupc!6n del DL para procesar en HBLANK una corta 
rutlna en lenguaje mSquIna. Vea el programa ejemplo 
ADR512.BEC. 


Los display lists estSndar manejan 192 scan lines. Estas van 
precedldas de tres veces ocho Ifneas vacfas para compensar 
el si sterna en la versl6n PAL, de manera que se manejan 
exactamente 192+24, o sea 216 Ifneas de TV. Camblando el DL, 
estas 24 Ifneas vacfas pueden utlllzarse actlvamente. Un DL 
modlflcado tambl^n puede trabajar con menos de 216 o 192 
scan lines, apareclendo una ancha franja vacfa (negra) en la 
parte Inferior de la pantalla. El comando JVB obllga al 
ordenador a esperar a I haz cat6d!co del tubo de telev!sl6n, 
de manera que cualquler DL mSs corto pueda Ir slncronlzado 
con el monitor. 
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Puesto que el sls+ema PAL divide el tubo de televlslfin en 
312- en lugar de las 262 Ifneas del si sterna NTSC- las 24 
Ifneas vacfas al prlnclplo del DL provocan que ventana 
grSflca de la pantalla PAL se encuentre, aproxlmadamente, en 
el centro vertical del tubo de TV. Sin embargo, esto 
signlflea que debajo del DL estSndar tambl^n pueden 
aprovecharse unas 20 Ifneas adlclonales. Pero si la longltud 
del DL excede del nfimero de Ifneas con que trabaja el 
televisor y el DL todavfa no se ha procesado por completo 
cuando el tubo de TV atravlese el VBLANK, serS Imposlble 
consegulr la slncronlzacl6n, la Imagen se dlstorslona y 
empleza a correr. Sin embargo no se.producen defectos en el 
tubo de televlsl6n. 


El programas slgulente muestra la forma de programar un 
display list Individual en BASIC: 


0 REM DLTWUP.BEC 

1 REM ^***************************** 


2 REM * * 

3 REM * GRAPHICS 8. VENTANAS * 

4 REM * SUPER I ORES DE TEXTO * 

3 REM * * 


6 REM ******************************* 

10 GRAPHICS 24:POKE 703,4 
20 DL=PEEK(560)+PEEK(561)*256 
30 FOR J=0 TO 9:READ B:P0KE DL+J,B:NEXT J 
40 DATA 112,66,96,159,2,2,2,79,80,129 
100 COLOR 1 

110 PLOT 0,0:DRAWT0 319,191 
120 PLOT 319,0:DRAWTO 0,191 
130 PLOT 0,0:DRAWT0 100,89 
140 PLOT 100,93:DRAWT0 207,191 

200 PRINT ’'GRAPHICS 8,VENTANAS SUPERlORES DE TEXTO" 
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10: Tan+o si s6lo modlflca llgeramen+e un display list 
estfindar como si construye uno completamente nuevo, en BASIC 
no podrS evltar llamar a un modo grSflco, puesto que el 
comando GRAPHICS reallza algunas tareas que no pueden 
sus+l+ulrse fSclImente nl slqulera por PEEKS y POKEs. 

Un funclfin Importante conslste en que GRAPHICS reserve 
memorla en la medlda que el modo en cues+l6n precise para 
memorlzar Ios datos de Imagen. SI usted confeedona un DL 
proplo tendrS que calcular la necesldad de SM y conectar un 
modo grSflco estSndar que tenga, al menos, Igual o mayor 
necesldad de memorla. En una tab I a del ap^ndlce memorla de 
pantalla puede encontrar la memorla necesarla de las 
dlversas Ifneas de modo. 

Al llamar un modo grSftco con ayuda del comando GRAPHICS, 
tambl^n se col^ca un diplay list correspondlente en la 
memorla a partlr del lugar marcado por el vector SAVMSC 
(88,89 = $58,$59). SI el OS se encarga de estas cosas, no 
hay problemas; pero si uno empleza a experimenter con sus 
proplos programas, tendrS que atenerse a las consecuenclas, 
puesto que un display list no debe superar el ITmlte de Ik 
sin ejecutar una nueva lnstruccl6n de salto (JMP, etc.). El 
DL mSs largo, el de GRAPHICS 8, no excede de 202 bytes. De 
esta forma no exlste nlnguna dlflcultad en emplazar un DL 
entre ITmltes de Ik. Pero hay que tenerlo en cuenta. 

A pesar de ello un DL puede alcanzar una longltud 
considerable. La InstrucclSn LMS de ANTIC actlva el bit 6 (= 
64) del byte que contlene la !nstruccl6n para una Ifnea de 
modo, es declr, desde el punto de vista decimal, suma 64 al 
nfimero de IdentlfIcaclSn de una Ifnea de modo. En teorfa es 
poslble dotar cada una de las Ifneas de modo con un LMS, 
aslgnando de esta forma una zona de memorla propla a cada 
Ifnea grSflca. Sin embargo, cada Instruccl6n LMS debe lr 
segulda del vector que apunta hacla la memorla de pantalla, 
lo que signlflea aftadlr dos tfytes adlclonales. Cuanto mayor 
sea la longltud de DL, mayor es el pellgro de superar el 
Ifmlte de Ik. 
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Una segunda restrlcci6n conslste en que la memorla que 
contlene Ios datos grSflcos (SM) no debe superar un ITmlte 
de 4k sin efec+uar una InstrucclSn LMS en el DL. SI observa 
los DL que ocupan m£s memorla, los de GRAPHICS 8 a 11, 14 y 
15 (necesfdad de SM 7680 bytes), algo mSs abajo del cen+ro 
encontrarS una nueva lnstruccl6n LMS con su correspondlente 
puntero hacl a la dlrecclfin que serial a algo mSs aba jo del 
centro de la memorla de pan+alla, donde contlndan los datos 
grSflcos que hacen referenda a la parte Inferior de la 
pantalla. 

El modo grSflco escogldo tambl€n determlna la forma de 
procesar los datos del SM, o sea el bit tlpo DMASK 672 = 
$2A0) utlllzado, es declr la cantldad de bits por pixel 
lefdos y la de reglstros de color empleados. Se puede 
Influlr en esta func!6n colocando en DINDEX (87 = $57) un 
valor que si mule un modo grSflco dlferente aI programado con 
GRAPHICS. 

Sin embargo, GRAPHICS o el otro valor colocado en DINDEX 
Influyen, por su parte, en todos los comandos que hacen 
referenda a la pantal la como son PLOT, LOCATE, etc. 

Aquf, en la Ifnea 10 del programa, se fIja ademSs la altura 
de la ventana de texto en 4 (Ifneas de GRAPHICS 0), puesto 
que se ha programado GRAPHICS 24, o sea 8 sin ventana de 
texto, slmplemente porque su DL correspondIente es adecuado 
a las pretenslones de este programa. La ventana de texto 
debe ser trasladada hacla el borde superior de la pantalla, 
por lo que se escoge el DL sin ventana de texto, que no 
preclsarS de mSs mod Iflcaclones de su extremo Inferior. 


20: Calcula la dlreccl6n In Ida I del DL. 

30: Comlenzan a efectuarse los camblos. El bucle F0R-NEXT 

lee dlez valores y los POKEa en el DL. 
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40: Aquf se encuen+ran los valores. El 112 orlglna 8 Ifneas 
de TV vacfas. El 66 resulta de LMS (64) + una Ifnea de 
GRAPHICS 0 (2)# Por lo tanto, el nuevo DL comlenza 16 Ifneas 
de TV normalmente vacfas mis arrlba. 96 y 159 corresponden a 
LO y HI de los vectores que apun+an hacla la memorla de la 
ventana de texto* Les sfguen otras tres Ifneas del modo 
grSflco 1. 79 contlene otra vez una 1ns+ruccI6n LMS (64) + 
el valor de comando 15 para una Ifnea de GRAPHICS 8, segufdo 
de los bytes LO (80) y HI (128) del puntero de SAVMSC de SM* 
El DL restante puede permanecer Invariable* 

Eso es todo* SI ahora entra un RUNAM, el bon Ito mundo nuevo 
de DL funclona. En el extremo superior de la pantalla 
aparecerS READY y usted podrS hacer aIIT todas las cosas 
divertI das que pueden hacerse normalmente en la ventana de 
texto* 

Sin embargo, si se atreve a Introduclrse en la zona de 
GRAPHICS 8, no podrS evltar problemas* Se ha escogldo 
consclentemente GRAPHICS 8 para 6ste programa de 
demostracl6n, porque en los modos elevados aparecen 
problemas especlales con los Ifmltes de k ya menclonados 
anterlormente. 

La nueva zona de GRAPHICS 8 comlenza dlrectamente debajo de 
la ventana de texto y funclona en su parte superior con 
todas sus caracterfctlcas Incluso PLOT* Sin embargo, despu6s 
Mega a I Ifmlte en el cual flgura en el DL la nueva 
InstruccI6n con el vector que apunta hacla la SM restante. 
Ahora, sin embargo, la nueva ventana grSflca ya no tlene la 
altura de 192 Ifneas de modo ({GRAPHICS 24!) tal como lo 
espera el OS y lo presupone para todos los PLOTs, si no s6lo 
176 Ifneas. Y en algfin lugar debe hallarse la dlferencla de 
16 Ifneas de modo. 


205 



100 y 120: PLOT y DRAWTO trazan aquf una cruz dlagonaJ que 
se extlende por toda la ven+ana grSflca, y podrS apreclar 
que le fal+a una franja en el centro* Este defecto no puede 
subsanarse tampoco camblando el puntero despu£s de la 
segunda Instrucclfin LMS, puesto que el OS calcula los PLOTs 
exlgldos por el comando DRAWTO sobre la base de que GRAPHICS 
8 (o blen 24) estl conectado de forma habitual* 

130 y 140: En este caso no hay mSs soluc16n que la de 
programar todas las Instrucclones de pantalla por separado 
para las dos partes. 

200: Solamente la ventana de texto funclona sin nlngfin 
problema. 

El problemStlco DL aquf presentado slrve de ejemplo tamblen 
para demostrar que el cam!no que parece mSs simple a prlmera 

i 

vista no slempre es el mejor* Sin embargo, si en Ifnea 10 
llama GRAPHICS 8 en lugar de GRAPHICS 24 y modlflca DL de 
tal forma, que ellmlna la ventana de texto del extremo 
Inferior y crea otra en la parte superior, sin convertlr 
Ifneas de TV vacfas en actlvas que por su parte ocuparSn SM, 
entonces la memorla volverS a colncI dir y no habrS nlngfin 
tlpo de problemas* jPru£belo! 

El segundo programa ejemplo establece una zona en el centro 
de la pantalla de GRAPHICS 0, en la cual la letra aparece 
muy aumentada, como vista con lupa: 


El aumento de la letra se conslgue aI Introduclr Ifneas de 
GRAPHICS 2. Los caracteres de GRAPHICS 2 se representan de 
doble ancho y una Ifnea de modo tlene altura doble que las 
de GRAPHICS 0, es declr 16 scan lines* Las dos nuevas Ifneas 
ocupan, pues, en la pantalla, el espaclo de cuatro Ifneas de 
GRAPHICS 0. 
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De nuevo se transforman 16 ITneas Inactlvas del ex+remo 
superior, trasladando pues el DL de GRAPHICS 0 hacla arrlba, 
para finalIzar In+roduclendo las dos nuevas Ifneas de modo 
en las Ifneas 80 y 90* 

AI ejecutar este programa la Instrucclfin GRAPHICS de Ifnea 
10 I Imp I a la pantalla. Sin embargo podrS observar el camblo 
Inmedlatamente, porque las Ifneas del modo grSflco 2 tlenen 
un fondo negro. 

iAhora entre . LIST! El modo de editor (GRAPHICS 0) es 
actlvado. Pueden efectuarse todas las entradas como es 
habf+ual. Cuando el lls+ado aparezca en la pantalla verS la 
Ifnea 30 en bonltas letras grandes de color naranja sobre 
fondo negro. TambI6n puede programar en esta Ifnea 
destacada. Vaya con el cursor hacla la Ifnea 30. gOh! ^D6nde 
estS el cursor ahora? 

El cursor se orlglna con ayuda de una funcl6n que modlflca 
en 128 el valor del carScter que se encuentra bajo p\ 
cursor, Invlrtlendo de esta forma I os caracteres. EN 
GRAPHICS 2 no exlsten caracteres Inversos. En lugar de ello 
se cambla el valor del color. 

Blen. Ahora Ileve el cursor de letra azul hasta el slgno de 
dos puntos y borr^lo junto con el Infitll REM que le slgue. 
No olvlde pulsar RETURN, ya que estamos entrando una nueva 
Ifnea BASIC. SI ahora vuelve a llstar el programa, la Ifnea 
30 ya estS correglda. 

Es poslble que haya descublerto algdn carScter oscuro en el 
extremo Inferior de la pantalla, pero no se preocupe, no ha 
comet I do nlngfin error. Lo que sucede es que la memorla 
reservada con ayuda del comando GRAPHICS no es suflclepte 
para este DL. Falta memorla justo para la tiltlma Ifnea. 
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Aunque ©I DL contlnde leyendo como slempre el contenldo d© 
las cel das de memorla, ya se encuen+ra en una zona que no 
pertenece a SM. Los da+os de estas cel das se convlerten 
lgualmen+e en caracteres, pero sin sentldo alguno. Tampoco 
podrS conduclr el cursor hacla estaIfnea. El editor slempre 
prepara 24 ITneas de GRAPHICS ()• En este aspecto es muy 
estrlcto y, aunque se modlflque el DL, no por ello camblarS 
sus hSbltos de trabajo. 

AdemSs exlsten otros problemas. En GRAPHICS 2 s6lo se puede 
acceder a la mltad del juego de caracteres y la mod!fIcac!6n 
efectuada ahora s6lo admlte una Ifnea ffslca de GRAPHICS 0, 
es declr que no acepta una Ifnea I6g!ca comp I eta. Sin 
embargo, es poslble convertlr toda la pantalla de GRAPHICS 0 
en GRAPHICS 2, permitlendo asf escrlblr programas en 
GRAPHICS 2. Ello puede ser de ayuda para personas cortas de 
vista. SI qulere llmltarse a destacar una Ifnea ffslca, es 
aconsejable dlsponerla en el borde superior de la pantalla. 


MEMORIA DE PANTALLA 


Con el nombre de screen memory (SM, memorla de pantalla) se 
deslgna aquella zona ocupada por los datos que deflnen la 
confIguraclon de la pantalla. La Instrucc!6n LMS del DL 
espera encontrar datos graftcos. La manera de transformar 
estos datos en Informaclones griflcas estS determInada por 
el comando de la Ifnea de modo. 


Exlsten dos modos operatlvos en prlnclplo dlferentes, el 
modo carScter y el modo bit-map. 
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En el modo carScter, cada byte de datos lefdo en la SM es 
transformado en un carScter. Un carScter es una dlsposlcl6n 
determInada de puntos de Imagen. La re lac 16n entre Ios 
caracteres, los valores que los representan y los esquemas 
de puntos que los representan en pantalla, estS deflnlda en 
el juego de caracteres (vea ap€ndlce juego de caracteres). 
Los caracteres del juego estSn ordenados por valores de 0 a 
127* Sin embargo, estos valores dlfleren del cfidlgo ATASCII. 
Se habla del c6dlgo tnterno. 

En el modo carScter el valor de la memorla de pantalla es 
Interpretado como c6d!go Interno de un carScter, se lee el 
carScter del juego y se emlte en pantalla el bit tlpo que lo 
representa. 

El comando BASIC LOCATE x,y,n, busca en la memorla de 
pantalla la cel da correspondlente a la postc!6n de pantalla 
x,y, lee el valor allf colocado (c6dlgo Interno) y lo 
transforma en ATASCII. LOCATE localIza pues en el modo 
carScter el valor ATASCII del carficter que se encuentra en 
clerta pos!cl6n de la pantalla. 

Por clerto, el comando LOCATE s6lo trabaja si prevlamente se 
ha efectuado un comando GRAPHICS. Esto slgnlflca que Incluso 
GRAPHICS 0 debe programarse expresamente, cosa Innecesarla 
habltualmente. 

TamblSn GRAPHICS 1 y 2 son modos carScter. La dlferencla 

estrlba en que s6lo se leen los bits 0 a 5 para encontrar el 

carScter en el juego de caracteres. Por esta raz6n no se 

puede representar mSs que medio juego de caracteres, de 

■% 

c6dlgo Interno 0 a 63. Los bits 6 y 7 son Interpretados como 
lnformacl6n de color. Con dos bits pueden representarse 
cuatro valores dlferentes (0 a 3). Por ello, los caracteres 
pueden tomar cuatro valores dlferentes en estos dos modos 
operatlvos. Un qulnto color es aslgnado al fondo. 
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Los modos carScter 12 y 13 tambl€n representan I os 
caracteres de varlos colores, permltlendo sin embargo llamar 
a I juego de caracteres completo, puesto que la 1nformacI6n 
de color se conslgue por otra vTa. En un carScter estcindar, 
cada bit corresponde a un punto de Imagen, por lo que puede 
aparecer en dos colores, a saber el color del carScter o el 
del fondo, En estos dos modos grSflcos cada dos bits se 
emlten en un solo punto de Imagen, pudlendo acceder de esta 
forma a cuatro valores de color dlferentes (reglstros de 
color), AI representar Ios caracteres del Juego estSndar en 
este modo devlenen prSctlcamente Ileglbles, porque la forma 
grSflca es traduclda s6lo en parte, mlentras que se afiaden 
Interpretaclones de color sin sentldo, (MSs detalles en el 
apSndlce juego de caracteres) 

En modo bit-map, se emlten pixels en la pantalla de tv cuyo 
tamafio depende de la resolucI6n del modo grSflco escogldo, 

SI cada bit representa un punto grSflco, 6ste s6lo podrS 
tomar dos col ores, 0 6 1, El COLOR contenldo en 0 y 1 se 
define con ayuda de POKE o SETCOLOR en el reglstro de color 
(vea tab I a) a I que se ha accedldo medlante COLOR, En un byte 
de esta $M caben ocho de estos bits grSflcos. Segfin la 
s!tuac!6n del bit en el Interior del byte de memorla o la 
del pixel en la pantalla, el bit reclbe un valor poslclonal 
de la manera habitual: 
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DOS COLORES 


Pixel en la pantalla 



Bit tlpo 


Valor posiclonal: 


1 

0 

0 

1 

0 

0 

i 

1 

28 

64 

32 

16 

8 

4 

2 

1 


=147 


El valor 147 de una cel da de la SM origlna en la pantalla la 
secuencia de pixels antes mostrada* 

Los modos graflcos 0, 4, 6, 8 y 14 trabajan en dos col ores* 

SI hay que dlstlngulr cuatro colores, cada pixel requlere 
dos bits de Informaclon: 


CUATRO COLORES 


0. 1. 2. 3- pixel 


= 147 

2 1 0 3 color 
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De esta forma, el byte de datos 147 prlglna una secuencla de 
cuatro pixels en Ios col ores 2, 1, 0,’3. En la memorla de 
pantalla se coloca pues el valor de COLOR del pixel en forma 
blnarla. A travSs del valor de COLOR se determlnarSn los 
correspondlentes reglstros de color. Puesto que el comando 
PEEK ha 11 a solo el valor decimal de un byte, los bits de 
varlos pixels forman un valor decimal comfin. 

Los modos grSflcos 3, 5, 7 y 15 trabajan con dos bits por 
pixel. 

En los modos GITA 9, 10 y 11 se usan cuatro bits por cada 
pixel. Con cuatro bits se pueden dlstlngulr cuatro colores. 
Sin embargo, el ATARI s6lo dispone de nueve reglstros de 
color, por lo que es Jmposlble deflnlr dteclsels col ores. 
Por esta raz6n COLOR 0 a 15 en GRAPHICS 9 s6lo hacen 
referenda a dlversas gradaclones de c lari dad de un color 
determlnado; en GRAPHICS 11, en camblo, se pueden utlllzar 
los dleclsels col ores estSndar pero todos con la mlsma 
clarldad; y en GRAPHICS 10 se permlten deflnlr llbremente 
los valores de color, pero aI dlsponer dnlcamente de nueve 
reglstros de color s6lo pueden efectuarse nueve comandos 
COLOR: 


16 COLORES 



pixel 
= 147 
color 
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En modo GITA, el valor 147 orlglna dos pixel con los valores 
de COLOR 9 y 3. 

La propla memorla de pantalla esta dlspuesta llnealmente. El 
primer byte de SM determ Ina el contenldo de la esqulna 
superior Izqulerda de la ventana grSftca. Le slguen los 
datos correspond Ientes a la Ifnea superior hasta el extremo 
derech.>, despues los datos de la Ifneas segunda y slgulentes 
hasta llegar a I Ciltlmo valor, que define la conf !gurac!6n de 
la esqulna Inferior derecha. 

El nGmero de bytes ocupados por una Ifnea depende del tamafio 
del pixel y de la cantI dad de colores poslbles, es declr de 
los bits por pixel. 

En GRAPHICS 3 una Ifnea se compone de 40 pixel; ya que se 
admlten cuatro col ores dlferentes, cada pixel ocupa dos 
bits. Una Ifnea del modo grSflco 3 ocupa 80 bits = 10 bytes. 
Para acceder a un punto determlnado de la pantalla hay que 
aver!guar qu6 byte contlene los datos correspondlentes a 
este punto. SI el punto tlene las coordenadas X,Y sus datos 
se encuentran en el: 

byte = SAVMSC + Y*rpl * INT(X/ppb) 

donde rpl define la RAM por Ifnea o los bytes por Ifnea y 
ppb Indlca los pixel por byte. SAVMSC es el vector que 
apunta had a la dlrecc!6n Inlclal de la memorla de pantalla. 
El valor de este puntero apunta hacla el primer byte de la 
SM. 

Una vez hallado el byte correcto, habrS que determlnar 
ademSs el lugar, dentro del byte, donde se encuentran los 
datos del punto grSflco en cuestl6n. 

En GRAPHICS 3 se pretende colocar un pixel de COLOR 2 en la 
posIcI6n 5,2. DIcha pos!c!6n provoca un offset de SAVMSC de 
21 bytes. En el byte 21 debajo de SAVMSC se ha 11 an los pixel 
con las coordenadas de pantalla slgulentes: 
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Bit 

Valor decimal 

POSITION 

COLOR 


■7 6 

128 64 

-4, 2- 
0 0 


5 4 

32 16 

-5, 2- 
1 0 


3 2 

8 4 

- 6 , 2 - 

0 0 


1 0 

2 1 

“ 7 , 2 - 

0 0 


En la posIcl6n 5,2 se ha deposltado el valor de COLOR 2 (en 
blnarlo 10). SI los tres puntos restantes permanecen negros 
(fondo, COLOR 0), el byte 21 tomarS el valor 32. El comando 
BASIC: 


COLOR 2:PLOT 5,2 

puede sustltulrse por el comando: 

POKE SM+21,32 

calculando prevlamente SM como dlrecc!6n In I cl a I de la 
pantalla a partlr del vector SAVMSC: 

SM = PEEK(88)+PEEK(89)*2 56 

Sin embargo, si hay que proyectar puntos graflcos alslados 
en la pantalla, el comando PLOT es mucho mSs faclI de 
manejar. Pero tambI6n el POKE hacla la SM tlene algunas 
ventajas. 

POKE es Independlente de las posI clones del cursor que 
pueden ser conslderadas I legates por el OS despu6s de 
odlflcar el DL. Elio slgnlfica que POKE slrve para escrlblr 
en zonas de la memorla Inacceslbles para PLOT y DRAWTO. 

Otra apllcacl6n interesante conslste en almacenar contenldos 
de pantalla, PEEKeando byte por byte de la memorla de 
pantalla y grabSndolos (POT) en el diskette a trav6s de un 
canal de datos. En sentldo Inverso, se podrSn GETear estos 
datos byte por byte del flchero del diskette y POKEarlos en 
la SM. 
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El slgulen+e programa ejemplo muestra una apllcacl6n de 
dlrecclonamlento dlrecto de la memorla de pantalla: 

0 REM SMPOKE.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * LETRERO CON MOVIMIENTO * 

4 REM * * 

5 REM ******** *** ******************* 

10 S=40040:PRINT CHR$(125) 

20 FOR P=0 TO 30:READ B:P0KE S+P,B:NEXT P 
30 DATA 

0,10,0,10,0,36,105,101,115,116,0,101,105,110,0,44,97,117,102, 
115,99,104,114,105,102 

40 DATA 116,13,52,101,115,116,0,10,0,10,0,10 
50 J=PEEK(S):K=PEEK(S+1):L=PEEK(S+2):M=PEEK(S+3) 

60 FOR 1=4 TO 39 
70 POKE S+I-4,PEEK(S+I) 

80 NEXT I 

90 POKE S+36,J:P0KE S+37,K:POKE S+38,L:P0KE S+39,M 
100 GOTO 50 

10: S es una dlreccf6nde SM. 

20: En el bucle FOR-NEXT, las celdas de memorla SM loen los 
bytes de datos correspondIentes a I texto deseado para una 
ITnea de pantalla (0 a 39). 

30 y 40: Los valores de carScter deben corresponder aI 

c6d!go Interno* 

50: El contenldo de las primeras cuatro dIreccIones es 

aslgnado a variables* 

60 a 80: A cont!nuac!6n se trasladan los contenldos de las 
celdas ^estantes de la ITnea de pantalla en cuatro 
dlrecclones hacla arrlba, que corresponde en la pantalla a 
cuatro columnas hacla la Izqulerda, y 
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90: flnalmen+e los cua+ro valores de carSc+er reservados son 
POKEados en las cua+ro Gl+Imas posI clones de la Ifnea. 

Medlan+e es+e proceso los carac+eres de la ITnea de pantalla 
se trasladan cua+ro columnas hacla la Izqulerda con cada 
ejecucl6n del programa. Tamb16n es postble, na+uralmen+e, 
+rasladarlos s6lo en un carSc+er cada vez, pero el BASIC es 
+an len+o que el +ex+o se desplazarfa a cSmara len+a. 

Sin embargo, el dlrecclonamlen+o dlrec+o de la pan+alla para 
la ven+ana de +ex+o +lene todavTa mSs Impor+ancla, pues+o 
que en el la no se ac+lv.-i >1 comando POSITION. U+Illzando un 
POKE SM se pueden colocar carac+eres alea+orlos y seguros y 
eml+Ir, asT, valores con+Inuamen+e camblan+es en un mlsmi. 
lugar, como puede ser por ejemplo un con+ador: 

0 REM RWPOKE.BEC 

1 REM ****************************** 

2 REM * * 

3 REM * POKES A LA VENTANA DE TEXTO* 

4 REM * * 

5 REM ^«<hhhhhhhhhhhhhhhhhhhhhhhhi* 

10 DIM Z$(5):P=40897:PRINT CHR$(125):N=25 
20 FOR J=0 TO 4:POKE P+J,16:NEXT J 
30 Z=Z+1 
40 Z$=STR$(Z) 

50 L=LEN(Z$) 

60 FOR J=1 TO L 

70 POKE P+4-L+J,VAL(Z$(J,J))+16 
80 NEXT J 

90 IF PEEK(P)=N THEN IF PEEK(P+1)=N THEN IF PEEK(P+2)=N THEN 

IF PEEK(P+3)=N THEN IF PEEK(P+4)=N THEN G0SUB 200 

100 REM IF Z=99999 THEN GOSUB 200 

110 GOTO 30 

200 RESTORE 300 

210 FOR J=0 TO 8 

220 READ D 

230 POKE P-10+J,D 

240 POKE P+6+J,D 

250 NEXT J 

260 Z=0:F0R J=0 TO 4 
270 POKE P+J,16 
280 NEXT J 
290 RETURN. 

300 DATA 47,54,37,50,38,44,47,55,1 



10: La secuencla de clfras correspondIente a I estado del 
con+ador es aslgnada a Z$; en todos I os DL es+Sndar la 
esqulna superior Izqulerda de la ventana de texto se 
encuen+ra en la dlrecclon 40800, 

20: Se escrlben 0 en las clnco primeras poslclones del 
contador; su cfidlgo Inferno = 16. 

30: Z cuenta. 

40: Para POKEar el estado del contador en la pantalla hay 
que descomponer Z en clfras separadas. El primer paso 
conslste en convertlr la variable num^rlca Z en un string 
Z$, porque es fSo11 leer en un string cada uno de los 
elementos. 

50: Para consegulr que cada cl fra llegue a parar en la 
poslclon correcta del ndrnero emltldo, hay que determlnar en 
primer lugar cuSntas clfras tlene el nOmero en cuestl6n, es 
decir cuantos elementos contlene Z$. 

60 a 80: El bucle FOR-NEXT lee en los strings de clfras 
cada una de las mlsmas (Z$(J,J)), las convlerte en valor 
numSrlco (VAL) y suma 16 a cada clfra para transformarla en 
su codlgo Inferno de caracter. El cfidlgo Inferno de 1 es 17, 
el de 2 es 18, etc. El valor de carScter asf determlnado es 
POKEado en la poslclon P+4-L+J. De esta forma se col oca cada 
clfra en su lugar correspondlente. 

90: El ATARI admlte tambl6n una lnstruccl6n como 6sta. 
SIrve para determlnar si todas las clfras tlenen valor 9 
(codI go Inferno = 25). 
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100: Tambl^n puede consegulrse mSs f5cllmen+e. 

110: Clerra el bucle con un salto hacla la Ifnea 30. 

200 a 300: Cuando el con+ador haya llegado hasta 99999 en 
este lugar se ... no, no lo descubrlmos - usted mlsmo puede 
averlguar lo que ocurre. Sin embargo, si hace llegar el 
con+ador has+a el final tendrS que armarse de un poco de 
paclencla. 

Al camblar de 99999 a 00000 podrS observar que el con+ador 
va mucho mSs deprlsa en los nfimeros pequefios. Elio se debe a 
la menor longl+ud del s+rlng de clfras,con lo que se 
preclsan menos pasos de programa. El BASIC es 
sufIclen+emen+e len+o para perml+lr que se aprecle es+a 
dlferencla con la vls+a. 

La ven+ana de +ex+o presen+a o+ra par+Iculari dad, y es que 
dispone de una memorla de pan+alla propla e Independlen+e. 
El vec+or TXTMSC (660,661 = $294,$295) apun+a hacla la 
d!reccI6n Inlclal, que en +odos los DL es+Sndar es la 40800. 

Independlen+emen+e de reclamar un modo grSflco con o sin 
(+16) ven+ana de +ex+o, slempre se reserva memorla para la 
ven+ana grSflca capaz de almacenar los da+os necesarlos para 
+odo el volumen de la pan+alla. De+rSs de el la se encuen+ra 
la memorla de 160 by+es reservada para la ven+ana de +ex+o. 
Es+a Independence +ambl6n es la raz6n por la que aquf no se 
ac+lvan los PLOTs y POSITIONS. 

Por o+ro lado, es+a separac!6n abre la poslbllldad de 
escrlblr en la memorla de la ven+ana de +ex+o sin hallarse 
6s+a conec+ada, asf como de visualIzar y ocul+ar la ven+ana 
de +ex+o en la ven+ana grSflca sin que, por ello, se plerdan 
da+os de una o de o+ro. Sin embargo, es+e proceso s6lo es 
poslble si al realIzar el comando GRAPHICS se prev6 que el 
con+enldo de la memorla no sea borrado como es habl+ual. 
Elio se conslgue ac+lvando el bl+ 5 del ntfmero de 
lden+IflcacI6n de GRAPHICS: 

BI+ 7 no u+IIIzado 
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Bit 

6 


no utl1Izado 

Bit 

5 

(=64) 

no borrar memorla de pan+alla 

Bit 

4 

(=16) 

sin ventana de texto 

Bit 

3 



a 

Bit 

0 

(=15 a 0) 

modo grSflco 0 a 15 con ventana de texto 


El slgulente ejemplo le muestra I os pasos de programa a 
reallzar para visualIzar y ocultar la ventana de texto: 
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0 REM TWEINAUS-BEC 

1 REM ****************************** 

2 REM * * 

3 REM * VISUAL IZAR/OCULTAR * 

4 REM * VENTANA DE TEXTO * 

5 REM * * 

6 REM ****************************** 

10 60SUB 300 

20 Z=Z+1:Z$=STR$(Z):L=LEN(Z$) 

30 FOR J=1 TO L:POKE P+6-6+J,VAL<Z$(J,J))+16:NEXT J 

40 IF PEEK(764)=225 THEN 20 

100 OPEN § 1,4,0,"K:":GE1 # 1,T:CL0SE# 1 

110 YA=Y:Y=Y-((T=28) AND (Y>0)) 

120 Y=Y+((T=29) AND (Y<23)) 

130 XA=X:X=X-((T=30) AND (X>0)) 

140 X=X+((T=31) AND (X<39)) 

150 IF T=69 THEN GRAPHICS 3+32:POKE 708,36:POKE 709,38:POKE 
710,208:POKE 712,208 

160 IF T=65 THEN GRAPHICS 3+16+32:POKE 708,50:POKE 
709,52:POKE 710,208:POKE 712,208 

200 COLOR 0:PL0T 0,YA:DRAWTO 39,YA:PLOT XA,0:DRAWT0 X,23:GOTO 
20 

210 COLOR 1:PLOT 0,Y:DRAWT0 39,Y:COLOR 2:PLOT X,0:DRAWT0 

X,23:GOTO 20 

300 DIM Z$(7):P=40896 

310 GRAPHICS 10:P0KE 708,50:POKE 709,52:POKE 710,208:POKE 
712,208 

320 FOR J=0 TO 6:P0KE P+J,16:NEXT J 
330 COLOR 2:PLOT 0,0:DRAWTO 0,23 
340 COLOR 1:PLOT 0,0:DRAWT0 39,0 
350 RETURN 

10: No es slempre aconsejable dlsponer el programa en orden 
cronol6g!co, es declr comenzar con la Introduce 16n en la 
prlmera Ifnea* ^Por qu6? Continue leyendo: 

20 y 30: Contlenen las mlsmas Ins+rucclones que el contador 
antes comentado, amp 11 ado tinlcamen+e a slete clfras y 
ocupando menos Ifneas loglcas. La ejecucl6n de un programa 
BASIC es tanto m§s rciplda cuanto menos ITneas I6glcas 
contenga, en la medlda en que exlstan Instrucciones de salto 
en el programa, puesto que cada salto da lugar a que el 
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BASIC revise todos los ndmeros de ITnea, de arrlba a abajo 
hasta encontrar la ITnea menclonada. Por ello tambl^n es 
aconsejable dlsponer las ITneas m£s sollcl+adas por los 
saltos al prlnclplo del programa, y las menos actlvas o las 
de ejecuc!6n unlca al final del mismo. 

40: CH (764 = $2FC) contlene el c6dIgo de tec I ado de la 
flltlma tecla pulsada. Su valor es 255 mlentras no se pulse 
nlnguna tecla. Esta ITnea se encarga de que el programa 
proceda su ejecuclfin sin nlngtin problema, ya que 

100: el comando GET Interrumpe el programa y espera una 
entrada efectuada por el usuarlo. Sin embargo, durante este 
tlempo el contador tambl^n estarTa parado. 

110 a 140: En la ventana grSflca se encuentra un retfculo. 
PodrS moverlo en todas dlrecclones con ayuda de las teclas 
de control del cursor. XA e YA mantlenen los valores 
antlguos que permIten borrar mSs tarde la pos!c!6n InIclaI 
del retTculo. Las cuatro operaclones booleanas determlnan si 
se ha pulsado la tecla en cuestI6n (T) y si no se han 
alcanzado los valores ITmlte de X o Y, actualIzando ademSs 
correspondlentemente los valores de X y de Y. 

150: SI la tecla pulsada es la "E" se actlva GRAPHICS 3 (o 
sea con ventana de texto). El +32 se encarga a I mismo tlempo 
de que la pantalla nc sea borrada. En una palabra, se 
visualIza la ventana de texto. TamblSn puede escrlblr 
GRAPHICS 35 de entrada en lugar de 3+32. 

Sin embargo, cada comando GRAPHICS renueva los valores 
default a los reglstros de color. Por esta raz6n hay que 
reno/ar aquT los colores deflnldos. Por clerto, utilIzando 
el mismo valor de color para el fondo (712) y COLOR 3 (710) 
se conslgue que las ventanas grSflca y de texto formen una 
unldad 6ptlca, aumentando asT el efecto de visualIzacISn. 

Sin duda serfa todavTa mSs Impreslonante estrechar la 
ventana de texto. Para consegulr este efecto bastarTa una 
Gnlca ITnea. Puesto que para ello habrTa que modlflcar el 
DL, la ITnea a visualIzar podrTa sltuarse ademSs en 
cualquler pos!cl6n de la pantalla. 
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160: SI se pulsa la tec I a "A", la ventana <1e texto vuelvo a 
desaparecer graclas a I nQmero de I dentIfIcaclfin de GRAPHICS 
3+16+32 (=51)* Puesto que al visualIzar y ocultar hay que 

volver a escrlblr en Ios reglstros de color, el cursor 
adqulere un color llgeramente dlferente cuando se visualtza 
el contador. 

Es Importante que, Incluso con la ventana de texto 
vlsuallzada, se pueda mover el centro del retTculo hasta 

llegar al borde Inferior de la pantalla, es declr hasta el 
lugar donde se extlende ahora la ventana de texto, sin que 

se produzca un mensaje de error por posIclSn I legal del 

cursor. Sin embargo, ello s6lo es poslble si al prlnclplo se 
actlv6 el modo grSflco sin ventana de texto. Aunque se 

visual Ice despu6s la ventana de texto, se podrS escrlblr 
Igualmente con PLOT, etc. en toda la ventana grSflca 
Incluyendo la zona ocupada por la ventana de texto, aunque 
no sea visible temporal mente. 

200: Escribe con el color de fondo enclma del retfeu Io 

antlguo, es declr que lo borra, y la Ifnea 

210: dlbuja (PLOT) el retfculo actual. 

300 a 350: Las Instrucclones utlllzadas dnlcamente al 

InlcJar el programa estSn mejor guardadas a I final del 

mlsmo. Aquf se deflnen grSflcos y valores de color, se 

colocan 0 en las slete poslclones del contador y se dlbujan 

(PLOT) los dos ejes del retfculo. 

La slgulente tab I a slrve de esquema de los dI versos modos 
grSfIcos: 
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A debe sallr Inverso 


« 

rsj 


XKXXXX XXXXXXXtf 







































* En todos Ios GRAPHICS con ventana de texto el nGmero 
710 de+ermlna Ios col ores de carac+eres y de fondo y el 
709 la clarldad de carac+eres de la ventana de +ex+o. 

C = COLOR, R = BORDE, H = FONDO. 

** Con COLOR 0 se llama aI valor de color del regls+ro 712 
en todos I os GRAPHICS. 
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JUEGO DE CARACTERES 


Para ser capaz de emltlr lnformacl6n escrlta en la pantalla, 
el ordenador debe conocer en primer lugar el aspecto de los 
caracteres u+lllzados para la comunlcac!6n humana, ya que el 
mlsmo ordenador se llml+a a usar nGmeros. 

Exlsten tres slstemas dlferentes para aslgnar valores 
num§rlcos a I surfI do de caracteres, el character set; todos 
ellos tlenen valldez en dlferentes nlveles del slstema. 

Por un I ado exlste el cod I go de tec I ado que aslgna un valor 
num£rlco de 0 a 63 a cada tec I a. Ya desde los tlempos de la 
mSqulna de escrlblr, la segunda mltad del juego de 

caracteres es acceslble con ayuda de una tec I a de funcl6n, 
que ha adqulrldo el nombre de SHIFT, pero con la dlferencla 
de que en el estado normal del tec I ado, el ATARI emlte 
letras mayGsculas. Utlllzando la tecla CAPS se puede 
bloquear el modo mSqulna de escrlblr, y el teclaao emltlrS 
InGsculas y mayGsculas (con SHIFT), 

Al ordenador se anadl6 entonces otra tecla de funcl6n para 
permltlr que cada tecla creara tres caracteres dlstlntos. Su 
deslgnacl6n habitual es CONTROL o CTRL. 

Un tercera tecla comGn a todos los ordenadores afecta al 
aspecto de los caracteres. Es la tecla INVERS. Al pulsarla 
se Invlerten todos ellos, es declr se muestran en 
representaclfin negatlva en la pantalla. 
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Desde que se Introdujo ©1 uso del teletlpo, las empresas, 
normalmen+e propensas a aprovechar cualquler opor+unldad 
para crear sus estSndars Individuals, fueron obllgadas a 
adaptarse a una sola norma para garan+Izar tamblSn la 
transference de Informaclfin entre dlstlntas marcas. Este 
estSndar reclbe el nombre de c6dfgo ASCII, que aslgna un 
valor numSrlco de 0 a 127 a cada carScter y a cada func!6n 
del teletlpo, tales como avance de ITnea, tabulador, etc. 

Actualmente el cfidlgo ASCII tamblfin constltuye la base para 
Impresoras y computadoras. MSs tarde se afiadleron a esta 
norma amerMcana caracteres Internaclonales y con ello 
tamblfin espafloles (fi, i , acentos, etc.). Sin embargo, 
fistos ya no cupleron entre Ios prlmeros 128 caracteres, es 
declr en el juego de caracteres propI amente dlcho. 

Los prlmeros 32 caracteres del c6d!go ASCII slrven para el 
control funclonal de la cabeza de !mpres!6n. El ordenador no 
preclsa de estos caracteres de control puesto que emlte a 
travfis del monitor. Los fabrlcantes de ATARI han aprovechado 
este espaclo llbre para albergar los caracteres adfcfonales 
que un teletlpo formal esta lejos de utlllzar, slendo sin 
embargo Gtlles para un dlsposltlvo de oclo. Se tr.ata de los 
llamados pseudo- o semi-caracteres o caracteres de grfiflcos 
de bloque. Para dlferenclar este cfidlgo de la norma se hace 
referenda a I cod I go ATASCII, que en gran parte es Idfintlco 
a I a norma ASC11• 

Sin embargo, para dlflcultar la labor del programador 
aficionado, exlste un tercer si sterna deslgnado con el nombre 
de c6d!go Interno. El cfidlgo Interno determlna el orden en 
que se almacenan los datos de los 128 caracteres en la 
memorla ROM. 
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Este codlgo Inferno se distingue del cSdlgo ATASCII por el 
hecho de que la suma de I os caracteres estS Intercamblada en 
tres grandes bloques. La re lac16n entre ambos cSdlgos se 
presenta de la manera slgulente: 


Conversion de valores ATASCII en c6dlgo Inferno 

0-31 y 128 - 159 ATASCII + 64 
32 - 95 y 160 - 223 ATASCII - 32 
96-127 y 224 - 255 ld6nt!co 

Conversion de codlgo Inferno a valores ATASCII 

0 - 63 y 128-191 codlgo Inferno + 32 
64 - 95 y 192 - 223 codlgo Inferno - 64 
96-127 y 224 - 255 IdSntlco 

El caracter cero del cfidlgo Inferno corresponde a I espaclo 
(ATASCII 32). Es declr que el juego de caracteres comlenza 
con los datos que hacen referenda al espaclo. 

Cada carScter es representado en una matrlz de ocho por ocho 
puntos. Cada uno de los puntos reluce o no; este dato se 
almacena actlvando o desactlvando un bit. Ocho bits 
dlspuestos uno tras otro se reCinen en un byte de datos. Cada 
carScter tlene pues una altura de ocho bits: 
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El carSc+er ATASCII 0 


128 64 32 16 8 4 2 1 






i ii i i i m 


= 0 

-54 

- 127 
= 127 

- 62 
- 26 

-6 
- 0 


El ordenador memorlzarS este coraz6n en forma de secuencla 
de ocho bits cuyos valores declmales son 0, 54, 127, 127, 
62, 28, 0. Tfene valor ATASCII 0 y de c6d!go Inferno 64. 
Esto slgniflca que se encuentra en la pos!cI6n ndmero 65 de 
la memorla del juego de caracteres. Sin embargo, puesto que 
cada uno de Ios 64 caracteres precedentes tambl^n ocupa ocho 
bits, el primer byte del coraz6n se encuentra en la 64*8 
cel da de memorla detris de la d!reccl6n InIclaI del juego de 
caracteres. El c6dIgo Inferno determlna pues el offset de 
I os datos de un carScter en la memorla de caracteres. El 
byte HI de la dlreccI6n InIcla I del juego se encuentra en 
CHBAS (756 = $2F4). Para hallar los datos de un cardcter 
determInado se calcula: 

CHBAS*256 + cod I go Inferno del carScter * 8 
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Los datos del carScter en cues+lfin se encontrarfin en 6sta y 
en las slete poslclones slgulentes. 


Una vez sab I do 6sto, la creac!6n de un juego de caracteres 
Individual ya s6lo es cues+!6n de trabajo actlvo. Para ello 
"simplemente" hay que calcular el byte de datos a partlr de 
la muestra de ocho por ocho puntos para cada uno de los 128 
caracteres, y almacenar estos 8*128 = 1024 6 1 kbyte en la 
memorla. SI despuSs se dlrlge el puntero CHBAS hacla la 
d!reccI6n InIclaI de este Juego de caracteres alternatlvo, 
cada PRINT y cada llstado aparecerS con un nuevo aspecto en 
la pantalla. 

El slgulente programa le muestra un ejemplo de ello, el cual 
contlene un juego de caracteres en curslva en forma de 
Ifneas DATA. Un carScter en curslva se distingue porque 
ttene su eje vertical Incllnado hacla la derecha, tal como 
suele ser caracterfstlco en la letra manuscrlta. Los 
amerlcanos la llaman "Italic", sabrS Zeus por qu6: 


0 REM ITALIC.DAT 

1 REM ****************************** 


2 REM * * 

3 REM * SET DE CARACTERES (DATA) * 

4 REM * CURS I VOS * 

5 REM * * 


6 REM ****************************** 

10 POKE 106,PEEK(106)-8 

20 GRAPHICS 0 

30 A=PEEK(106)+8:C=A*256 

40 FOR J=0 TO 1023:READ B:P0KE C+J,B:NEXT J 
50 PRINT CHR$(125):P0KE 752,1 
100 POKE 756,A 
110 POSITION 2,7 

120 PRINT » AS I SE REPRESENTA LA LETRA CURSIVA." 
130 FOR W=0 TO 400:NEXT W 
140 POSITION 2,7 

150 PRINT "ASI SE REPRESENTA LA LETRA NORMAL." 
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• 160 POKE 756,224 
170 FOR W-0 TO 400:NEXT W 
180 GOTO 100 

30000 DATA 

0,0,0,0,0,0,0,0,0,12,12,24,24,0,48,0,0,51,51,102,0,0,0,0 

30001 DATA 

0,54,127,54,108,254,108,0,12,62,96,56,12,248,48,0,0,108,104,2 

4,16,54,38,0 

30002 DATA 

24,52,24,40,74,68,54,0,0,24,24,48,0,0,0.0,0,14,28,24,24,28,14 

.0 

30003 DATA 

0,112.56,24,24.56,112,0,0,102.60,255,60,102,0,0,0,8,24,126,24 

,16,0,0 

30004 DATA 

0,0,0,0,0,24,24,48,0,0,0,126,0,0,0,0,0,0,0,0,0,24,24,0 

30005 DATA 

0,6,12,24,48,96,64,0,0,28,50,110,118,76,56,0,0,6,28,12,24,24, 

48.48 

30006 DATA 

0,30,50,12,24,48,124,0,0,31,6,8,4,4,40,48,0,6,12,28,40,126,24 

.48 

30007 DATA 

0,62,48,56,4,4,76,48,12,16,32,120,100,100,56,0,0,60,4,12,24,4 

8.48.48 

30008 DATA 

12,18,50,56,76,76,56,0,0,28,54,34,22,12,24,48,0,0,24,24,0,48, 

48,0 

30009 DATA 

0,0,24,24,0,48,48,96,6,12,24,48,24,12,6,0,0,0,126,0,0,126,0,0 

30010 DATA 

96,48,24,12,24,48,96,0,0,28,34,12,24,16,0,32,0,60,54,110,108, 

64,124,0 

30011 DATA 

0,15,27,50,102,252,204,0,0,62,50,124,102,198,252,0.0,30,50,32 

,96,100,56,0 

30012 DATA 

0,60,54,102,102,204,248,0,0,62,48,120,96,192,248,0,0,62,48,12 

0,96,192,192,0 

30013 DATA 

0,30,48,96,110,204,120,0,0,51,51,126,102,204,204,0,0,30,12,24 

,24,48,248,0 

30014 DATA 

0,30,38,12,12.24,152,112,0,51,54,104,120,216.204,0.0,24,24,48 

,48,96,124,0 

30015 DATA 

0,33,51,127.107,198,198,0,0,51,59,106,110,204,196,0,0.30,51,1 

02,102,204,120,0 

30016 DATA 

0,30,19,54,60,96,96,0,0,30,51,102,102,216,108,6,0,62,51,102,1 

24,216,204,0 

30017 OATA 

0,30,48,60,6,140.120,0,0,63,76.24,24,48,48,0,0,51,99,102,193, 


204.120.0 

30018 DAIa 

0,51,35,102,100,104,48,0,0,33,99,67,203,222,228,0,0,34,22,28, 

24,52,100,0 

30019 DATA 

0,17,35,22,28,24,48,96,0,62,6,24,48,192,248,0,0,30,24,48,48,9 

6,120,0 

30020 DATA 

0,96,96,48,24,12,12,0,0,30,6,12,12,24,120,0,0,8,28,54,99,0,0, 

0 


30021 DATA 

0,0,0,0,0,0.255,0,0,54,127,127,62,28,8,0.24.24,24,31,31.24,24 

.24 

30022 OATA 

3,3,3,3,3,3,3,3,24,24,24,248,248,0,0,0,24,24,24,248.248,24,24 

.24 

30023 DATA 

0,0,0,248,248,24,24,24,3,7,14,28,56,112,224,192,192,224,112,5 

6,28,14,7,3 

30024 DATA 

1,3,7,15,31,63,127,255,0,0,0,0,15,15,15,15,120,192,224,240,24 
8,252,254,255 
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30025 DATA 

15,15,15,15,0,0,0,0,240,240,240,240,0,0,0,0,255,255,0,0,0,0.0 

,0 

30026 DATA 

0.0,0,0,0,0,255,255,0,0,0,0,240,240,240,240,0,28,20,119,119,8 

,? 8,0 

30027 DATA 

0,0,0.31,31,24,24,24,0,0,0,255,255,0,0,0,24,24,24,255,255,24, 

24.24 

30028 DATA 

0,0,60,126,126,126,60,0,0,0,0,0,255,255.255,255,192,192,192,1 

92,192,192,192,192 

30029 DATA 

0,0,0,255,255,24.24,24,24,24,24,255,255,0,0,0,240,240,240.240 

,240,240,240,240 

30030 DATA 

24,24,24,31,31,0,0,0,120,96,120,96,126,24,30,0,0,24,60,126,24 

,24,24,0 

30031 DATA 

0,24,24,24,126,60,24,0,0,24,48,126,48,24,0,0,0,24,12,126,12,2 

4,0.0 

30032 DATA 

0,24,60,126,126,60,24,0,0,0,28,6,62,204,122,0,0,48,48,124,102 

,204,248,0 

30033 DATA 

0,0,60,96,96.192,120,0,0,3,3.62,102,204,124,0,0.0,28,102.124, 

192,120,0 

30034 DATA 

0,14,24,60,24,48,48,96,0,0,31,54,102,60,12.120,0,48,48,124,10 

2.198.204.24 

30035 DATA 

0,12,0,56,24,48,120,0,0,6,0,12,12,24,24,240,0,48,32,108,120,2 

08,204,0 

30036 DATA 

0,28,12,24,24,48,120,0,0,0,51,127,122,214,132,0,0.0,62,99,103 
.198,204,0 

30037 DATA , 

0,0,30,102,102,204,120,0,0,0,62,102,102,248,192,192.0.0.31,10 

2,102,60,12,12 

30038 DATA 

0,0,26,48,48,96,96,0,0,0,31,96,60,12,248,0,0^12,63,24,24,48,4 

8,0 

30039 DATA 

0,0,51,102,102,204,124,0,0,0,51,102,102,120,48,0,0,0,35,107,8 

7,252,216,0 

30040 DATA 

0,0,51,60,24,124,196,6,0,0,51 , 90 , 102, 60,24,240,0,0,63,12,24,9' 

6,252,0 

30041 DATA 

0,24,60,126,126,24,60,0,24,24,24,24,24,24,24,24,0,126,120,124 

,110,102,6,0 

30042 DATA 

•3,24,56,120,56,24,8,0,255,255,255,255,255,255,255,255 

10: Es especialmen+e aconsejable almacenar el valloso juego 
de caracteres en una zona pro+egida de la memorla. Cuando 
haya tecleado este programa, o cuando haya programado 
Incluso un juego de caracteres prop Io, se darS cuenta de lo 
valloso que es un juego de este tlpo. 


El vector de RAMT0P (106 = $6A) es trasladado ocho pSglnas 
hacia abajo. A decir verdad, s6lo se preclsan cuatro pSglnas 
(= 1 kbyte), pero es mas seguro reservar un zona de buffer 
a I acercarse a la memoria de la ventana de texto, para 
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evl+ar que el scroll pueda ocul+ar los datos del juego de 
caracteres (s6lo ^). 

20: El comando GRAPHICS da lugar a que la memorfa de 
pan+alla y el display 11st se subordlnen aI nuevo valor de 
RAMTOP. Pot clerto, el nuevo juego de caracteres tambl£n 
funclona en GRAPHICS 1 6 2 o en cualquler modo grSflco con 
ventana de texto. Slmplemente tenga en cuenta que se 
restab Iece el valor default de CHBAS con cada comando 
GRAPHICS, por lo que deberS volver a POKEar la dlreccl6n 
inIc!a 1 del juego de caracteres alternative en la dlrecc!6n 
765. 

30: Se ca leu I an los dos valores necesarlos, o sea la pciglna 
o byte HI y la dlreccl6n In Id a I comp I eta del nuevo juego de 
caracteres. 

40: En el bucle FOR-NEXT la zona de memorla reservada lee 

ahora los 1024 bytes en las ITneas DATA. Este proceso 
requlere clerto tlempo. Pero una vez transcurrldo ya puede 
comenzar. 

50: Se I Imp I a la pantalla y se oculta el cursor. 

100: AquT se dlrlge el puntero had a nuestro nuevo juego de 
caracteres y 

120: la pluma del abuelo escribe en el monitor: 

150: A contlnuac16n escrlblmos otro texto y 

160: dlrlglmos el puntero de nuevo had a el juego de 

caracteres estandar protegldo en la ROM. En un Instante todo 
vuelve a la normal I dad. 
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30000 a 30042: Este es byte por byte el juego de caracteres 
Italic. 

Y asT aparecen los caracteres nuevos y I os estSndar del 
ATARI en la pantalla: 

* DIbujo de los juegos de caracteres * 


Los modos caracter 12 y 13, que los XL tambl^n pueden llamar 
a traves de GRAPHICS, funclonan con el mlsmo prlnclplo. La 
dlferencla estrlba en que cada dos bits crean un pixel del 
caracter. Elio permlte dlstlngulr un total de cuatro valores 
de COLOR, pero un byte s6lo almacenara las Informaclones 
correspondlentes a cuatro pixels. Para consegulr la mlsma 
anchura de display los pixels tlenen un ancho de dos puntos 
de Imagen. 

SI los valores del juego de caracteres estandar se emlten de 
esta forma, apareceran dlsposlclones poco razonables de 
puntos de color. Estos dos modos GRAPHICS s6lo serSn 
realmente efectlvos con un nuevo juego de caracteres. 


El coraz6n ATARI por ejemplo tlene el aspecto slgulente en 
GRAPHICS 12 o 13: 
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Carac+eres en GRAPHICS 12 y 13 


PIXELS 


Valores 

COLOR 


valores 
dec 1maIes 



0000 

- 

0 

0-3 1 2 

- 

54 

133 3 

a 

127 

1333 

m 

127 

0332 

m 

62 

0130 

m 

26 

002 0 

m 

6 

0000 

m 

0 
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Los valores de COLOR hacen referenda a I os reglstros de 
color 708 (COLOR 1 =01), 709 (2 = 10), 710 (3 = 11) y fondo 
712 (0 = 00) de Ios carac+eres norma Ies. Los Inversos 
ob+Ienen su valor para COLOR 3 del reglstro de color 711. 

Para finalIzar le presen+amos un pequeno programa que 
muestra los efec+os que pueden consegulrse u+IHzando 
carac+eres de varlos col ores: 


0 REM C0LCHR.DAT 

1 REM ****************************** 

2 REM * * 

3 REM * CARACTERES DE COLOR * 

4 REM * * 

5 REM ****************************** 

10 G0SUB 100 

20 X=INT(RND(0)*39) 

30 Y=INT(RND(0)*21) 

40 Z=lNT(RND(0)*11 ) 

50 J=Y*40+X+1:Z=Z+1 
60 P$(J,J)=C$(Z,Z) 

70 POSITION 0,0:PRINT# 6;P$:G0T0 20 
100 DIM P$(880),C$(11 ):C$="#$*&'()*+,-" 

110 P$="#":P$(880)=P$:P$(2)=P$ 

120 POKE 106,PEEK(106)-4 

130 GRAPHICS 28 

140 A=PEEK(106)+4:C=A*256 

150 FOR J=0 TO 110:READ B:POKE C+J,B:NEXT J 

200 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

210 DATA 

66.66,24,24,36,36,129,129,78,78,116,116,39,39,177,177,112,112 

,27,27,228,228,141,141 

220 DATA 

74,74,16,16,4,4,161,161,66,66,16,16,132,132,129,129,66,66,28, 

28.180.180.129.129 
230 DATA 

74,74,28,28,52,52,161,161,74,74,16,16,132,132,129,129,66,66,1 

8,18,4,4,161,161 

240 DATA 

66.66.30.30.52.52.161.161.74.74.28.28.180.180.129.129 
250 POKE 756,A 

260 RETURN 
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10: El Inlclo del programa se encuentra en las ITneas 
Infer lores, para facllltar la rapldez de ejecuclfin de la 
parte actlva. 

100: P$ reclbe el graflco de pantalla en forma de string, 
cubrlendo con ello 22 ITneas de modo con 40 caracteres cada 
una. C$ recoge el Juego de los caracteres utlllzados como 
elementos de Imagen. 

110: Llena P$ con 880 rombos (caracteres num£rIcos) segfin 
el m§todo expuesto en el programa ADR135A.BEC. Aquf tambl6n 
puede colocar cualquler otro carScter contenldo en C$ o 
secuenclas de los mlsmos. Algunos de los caracteres de nueva 
creaclon contlenen pocas partes en COLOR 3. SI llama estos 
caracteres en su forma Inversa obtendrS el cuarto -o qulnto, 
contando el fondo- color. 

120 a 150: Reservan memorla para el nuevo juego de 
caracteres. En este caso no se preclsa una zona muy grande 
de memorla, ya que solo se confecclonan once nuevos 
caracteres. 

200: Los DATA de los nuevos caracteres. SIguIendo el orden 
del c6d!go Interno, el espaclo estS en lugar cero seguldo de 
exclamacI6n y com!I las. Puesto que las com!I las no pueden 
aparecer en un string, a I menos en el BASIC del ATARI, en 
este caso se ha prescind I do de los tres prlmeros caracteres. 
Pero los once caracteres slgulentes slrven de elementos de 
Imagen. Por ello la ITnea 150 lee catorce datos (14*8=112) 
con el bucle F0R-NEXT. 

250: Cambla el puntero CHBAS y 

260: despu6s empleza el programa. 

20 y 30: Aunque el contenldo del grSflco de pantalla haya 
si do deposltado en forma de caracteres en un string 
Interminable, podemos actuar sin embargo como s! tratasemos 
con poslclones de pantalla, deslgnados habltuaImente con X e 
Y. Puesto que el string se muestra (PRINT) en pantalla 
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comenzando slempre en el mlsmo lugar, cada elemento por 
separado tamblen se emlte en el mlsmo lugar de la pantalla. 
La fundon de P$ aquT no es mas que la de memorla de 
pantalla en la que se almacenan nOmeros de identIfleadon, 
que servlrln para realfzar dlsposlclones grUflcas de color 
mas complejas, a saber los caracteres creados por nosotros 
mlsmos, y emltlrlas en la pantalla. 

De Igual manera pueden Imaglnarse las funclones de la 
memorla de pantalla en el modo carScter. En las celdas de 
memorla se anotan los valores de los caracteres con su 
cSdlgo Interno, que servlran despu^s para leer en el juego 
de caracteres ROM los bits tlpo a representar en la pantalla 
de TV. 

La gran ventaja del m6todo del string estrlba en que no hay 
nlngGn problema con la memorla a reservar. Lo que los 
elementos de Imagen deflnldos muestran en la pantalla 
tambl§n se podrfa consegulr de forma pared da en GRAPHICS 15 
(XL), pero s6lo con penosos PLOTs aI si ados que requerIrfan 
ademas el conslgulente tlempo de ejecuclon. En este caso se 
rellenarfa con cada elemento (carlcter) una superflcle de 
ocho por ocho puntos de Imagen (4 por ocho pixels). La 
IlmltacISn conslste en que el grSflco de pantalla s6lo puede 
componerse a partIr de muestras prefabrlcadas a I Igual que 
un "collage". Sin embargo, al estudlar este programa tamb!6n 
vera el tamano tan mlnOsculo de estas plezas y que cada 
pixel se plerde en esta muestra. 

EI«m6todo del string slmpllflca pues la creadon de los 
contenldos grSflcos de colores de la pantalla, ocupando poca 
memorla y trabajando a veloci dad relatlvamente elevada. AI 
tener que deflnlr 128 elementos de Imagen, se permlte 
deflnlr una varlada caja de construedones de plezas 
grSflcas, que nos servlra para componer rSptdamente por 
ejemplo un palsaje o un calldoscoplo o cualquler otra cosa. 

Estas dos Ifneas de programa determlnan pues posI clones 
aleatorlas de pantalla X e Y, tal como podrfa suceder 
tamblSn en otra forma de representaciSn, como por ejemplo 
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GRAPHICS 3 


40: AquT se ex+rae un numero aleatorlo entre 0 y 10, que 

deberS escoger mas tarde el elemento creador. 

50: J calcula la poslcl6n dentro del string a part Ir de X e 
Y, tal como se determ Inarta la cel da de la memorla de 
pantalla a partIr de X e Y, es declr valor de ITnea (Y) 
multlpllcado por la cantI dad de caracteres por Ifnea (40) 
mSs valor de columna (X)* Puesto que trabajamos con un 
string y que el primer caracter de un string no tlene valor 
de poslclon 0 si no 1, habra que sumarle ademSs un 1 a I valor 
halI ado. 

Lo mlsmo vale para el nGmero aleatorlo Z. Un string no tlene 
nlngGn caracter nGmero 0. 


60: El caracter que se encuentra en la poslc!6n J calculada 
(P$(J,J)) de P$ es sustltuldo por el caracter Z hallado 
aleatorlamente, que se encuentra en la poslclon Z de C$. 

70: Emlte (PRINT) P$ en la pantalla comenzando por la 
esqulna superior Izqulerda, Inlclando despuSs una nueva 
ejecuclon del programa. 


SI el objetIvo de un programa de este tlpo tan solo conslste 
en mostrar una Imagen variable de colores en la pantalla, no 
sera necesarlo Introduclr en el string contlnuamente ^ds 
elementos de Imagen determInados de forma aleatorla, nl 
Imprlmlr tampoco el P$ completo*en* cada pasada. Se puede 
consegulr el mlsmo efecto a I senalar con POSITION la 
poslclon de pantalla determlnada a IeatorIamente y emltlendo 
(PRINT) el elemento de Imagen C$(Z,Z) en el la. 
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El *nStodo aquf presentado va almacenando contlnuamen+e el 
actual contentdo de Imagen, por lo que Sste es Independlente 
de su representaclSn en el monitor. El camblo tamblSn podrfa 
contlnuar mlentras se muestre alguna otra cosa en la 
pantalla. El programa tamblSn podrfa conmutar 
espontSneamente entre P$ y otros strings con dlferentes 
contenldos de Imagen, resolvlendo de esta forma elegante y 
ahorratlva (de memorla) el problema de un rSpldo camblo de 
escena en un modo grSflco de alta resoluclfin* 
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LABEL - ABECEDARI0 


APPMHI 

14 

GRACTL 

53277 

TMPCHR 

80 

ARGOPS 

128 

GRAFM 

53265 

TMPCOL 

679 

ATACHR 

763 

GRAPFO-3 

53261 

TMPLBT 

673 

ATRACT 

77 

HATABS 

794 

TEMPROW 

696 

AUDC1 

53761 

HITCLR 

53278 

TRAMSZ 

6 

AUDC2 

53763 

HLPFLG 

732 

TSTAT 

793 

AUDC3 

53765 

HOLDCH 

124 

TSTDAT 

7 

AUDC4 

53767 

H0LD1 

81 

TXTCOL 

657 

AUDCTL 

53768 

HPOSMO-3 

53252 

TXTMSC 

660 

AUDF1 

53760 

HPOSPO-3 

53248 

TXTOLD 

662 

AUDF2 

53762 

ICAX1Z-6Z 

42 

TXTROW 

656 

AUDF3 

53764 

ICBALZ/HZ 

36 

VBREAK 

518 

AUDF4 

53766 

ICBLLZ/HZ 

40 

VDELAY 

53276 

BFENLO/HI 

52 

ICCOMT 

23 

VDSLST 

512 

BITMSK 

110 

ICCOMZ 

34 

VIMIRQ 

534 

BOOT? 

9 

ICDNOZ 

33 

VINTER 

516 

BOTSCR 

703 

ICHIDZ 

32 

VKYBD 

520 

BPTR 

61 

ICPTLZ/HZ 

38 

VNDT 

132 

BRKKEY 

17 

ICSTAZ 

35 

VNTP 

130 

BRKKY 

566 

INBUFF 

243 

VPRCED 

514 

BUFADR 

21 

INITAD 

738 

VSERIN 

522 

BUFCNT 

107 

INSDAT 

125 

VSEROC 

526 

BUFRFL 

56 

INTEMP 

557 

VSEROR 

524 

BUFRLO/HI 

50 

INTRVEC 

552 

VTIMR1-4 

528 

BUFSTR 

108 

INVFLG 

694 

VVBLKD 

548 

CASFLG 

783 

IOCBO-7 

832 

VVBLKI 

546 

CASINI 

2 

IRQEN 

53774 





KEYDEF 

121 

VVTP 

134 

CASSBT 

75 

KEYDEL 

729 

WARMST 

8 

CBAUD 

750 

KEYDEL 

753 

XMTDON 

58 

CDTMA1-2 

550 

KEYREP 

730 
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CDTMF3-5 

554 

LCONT 

563 

CDTMV1-5 

536 

LINBUF 

583 

CFB 

570 

LINZBS 

0 

CH 

764 

LMARGIN 

82 

CHI 

754 

LOGCOL 

99 

CHACT 

755 

LOGMAP 

690 

CHACTL 

54273 

LOMEM 

128 

CHAR 

762 

LPENH/V 

564 

CHBAS 

756 

MEMLO 

743 

CHBASE 

54281 

MEMTOP 

144 

CHKSNT 

59 

MEMTOP 

741 

CHKSUM 

49 

NEWCOL 

97 

CIX 

242 

NEWROW 

96 

CKEY 

74 

NOCKSM 

60 

COLAC 

114 

NOCLIK 

731 

COLBK 

53274 

OLDADR 

94 

COLCRS 

85 

OLDCHR 

93 

COLDST 

580 

OLDCOL 

91 

COLORO-4 

708 

OLDROW 

90 

COLPFO-3 

53270 

OUTBUFF 

128 

COLPMO-3 

53266 

PADDLO-7 

624 

COLRSH 

79 

PBPNT 

29 

CONSOL 

53279 

PBUFSZ 

30 

COUNTR 

126 

PCOLRO-3 

704 

CRETRY 

54 

PMBASE 

54279 

CRITIC 

66 

PRIOR 

53275 

CRSINH 

752 

PRNBUF 

960 

DAUX1-2 

778 

PTABW 

201 

DBSECT 

577 

PTEMP 

31 

DBUFLO/HI 

772 

PTIMOT 

28 

DBYTLO/HI 

776 

PTRIGO-7 

636 

DCB 

768 

RADFLG 

251 

DCOMND 

770 

RAMLO 

4 

DDEVIC 

768 

RAMSIZ 

740 

DEGFLG 

251 

RAMTOP 

106 

DELTAC 

119 

RANDOM 

53770 
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ft 


DELTAR 

118 

RECVDN 

57 

DINDEX 

87 

RMARGN 

83 

DLxSTL/H 

54274 

ROWAC 

112 

DMACTL 

54272 

ROWCRS 

84 

DMASK 

672 

ROWINC 

760 

DOSINI 

12 

RTCLOK 

18 

DOSVEC 

10 

\ 

RUNAD 

736 

DRETRY 

55 

RUNSTK 

• 

142 

DRKMSK 

78 

SCRFLG 

699 

DSKFMS 

24 

SDLSTL 

560 

DSKTIM 

582 

SDMCTL 

559 

DSKUTL 

26 

SHFAMT 

111 

DSPFLG 

766 

SHFLOK 

702 

DSTAT 

76 

SOUNDR 

65 

DSTATS 

771 

SRTIMR 

555 

DTIMLO 

774 

SSFLAG 

767 

DUNIT 

769 

SSKTCL 

562 

DUNUSE 

775 

STACKP 

792 

DVSTAT 

746 

STARP 

140 

ENDPT 

116 

STATUS 

48 

ENDSTAR 

142 

STICKO-3 

632 

ERRSAVE 

195 

STMCUR 

138 

ESCFLG 

674 

STMTAB 

136 

ESIGN 

239 

STOPLN 

186 

FEOF 

63 

STRIGO-3 

644 

FILDAT 

765 

STRTFLG 

1001 

FILFLG 

695 

SWPFLG 

123 

FMZSPG 

67 

TABMAP 

675 

FREQ 

64 

TIMER1 

780 

FTYPE 

62 

TIMER2 

784 

GLBABS 

736 

TIMFLG 

791 

GPRIOR 

623 

TINDEX 

659 
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LEX ICO DEL ORDENADOR 


ATASCI I 

C6dIgo qu© aslgna un valor decimal en+re 0 y 127 a cada uno 
de Ios carac+eres dlsponlbles en el ordenador. El c6d!go 
ATASC11 es una modlflcaclfin de la norma ASCII (American 
Standard Code for Information Interchange), 


BCD 

Se utlllzan prInclpalmente dos m^todos dlferentes para 
procesar valores num§rlcos. Con el mStodo de nOmeros enteros 
se convlerten slmplemente los valores declmales en blnarlos, 
Estos datos pueden procesarse con mucha rapldez, pero 
ocaslonan muchos errores de redondeo con mayor facllldad, El 
segundo camlno consist© en la codifIcaclon*blnarla (Binary 
Coded Decimals), Trabajando con las constantes BCD de 6 
bytes utlllzadas por el ATARI, cada valor num6rlco ocupa una 
secuencla de 6 bytes, El prlmero recoge el slgno y el 
exponente de cada valor; los clnco bytes slgulentes 
contlenen las clfras del nGmero decimal transformadas por 
separado aI si sterna blnarlo, AI preclsar cuatro bits para 
representar las clfras 0 a 9, cada byte de BCD puede recoger 
dos clfras, de manera que las constantes BCD de 6 bytes 
puedan entender nGmeros con exactltud de dlez clfras, Para 
ello se ocupa una. zona de memorla re I at l vamente amp I la y los 
procesos de cSlculo son bastante mSs lentos, (vea STARP; 
140,141 = $8C,S8D) 
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Bit 


Una clfra binarla (Binary dlglT) es la unldad mSs pequefia 
qu© el ordenador pued© procesar. El slstema blnarlo tlene 
base 2, es declr que s6lo exlsten dos clfras, el 0 y el 1, y 
cada pos!cI6n de un ndmero blnarlo representa una potencla 
de base 2. El ordenador consldera las clfras 0 y 1 como 
estados de +ensI6n el§ctrIcos encendldo y apagado. Un bit es 
la unldad de InformacI6n mSs pequefia Imaginable, que 
contlene una declslfin sl/no. 


Bit tlpo 

Dlsposlclon de ocho bits en un byte, que con su estado de 0 
6 1 son considerados como tlpo (muestra). 


Byte 

Los ndmeros blnarlos pueden alcanzar secuenclas 
considerables de clfras, por lo que varlos bits se agrupan 
en una unldad superior. Un byte tlene ocho bits. Ocho bits 
pueden representar valores declmales de 0 a 255. Un 
procesador de 8 bits, que actualmente todavfa es el 
procesador estSndar utlllzado en ordenadores domSstlcos, 
procesa un byte entero (ocho bits en paralelo). La capacldad 
del procesador tambI6n se deslgna por palabra (word). Para 
un procesador de 8 bits, una palabra tlene un tamafio de un 
byte; para un procesador de 16 bits, una palabra consta de 
dos bytes, etc. 


Byte de datos 

El valor decimal (de 0 a 255) de un byte en contraposIc!6n 
al bit tlpo. 
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Byte HI 


Para representar valores numSrlcos mayores, como por ejemplo 
dlrecclones, el valor se descompone en las partes superior e 
Inferior. El byte HI Indlca el mQltlpIo de 256 y el byte LO 
el resto del nGmero: HI*256 + LO. De esta manera pueden 
expresarse valores de 0 a 65535. Las dos partes slempre se 
memorlzan en el orden LO, HI. 


Byte LO 
Ver byte HI. 


CIO 

Central Input/Output; rutlnas centrales de entrada/salIda 
que supervlsan los procesos de entrada y sal Ida. 


DL 

Display List; un programa en lenguaje maqulna para el 
mlcroprocesador ANTIC, que dispone de un proplo juego de 
Instrucclones. El DL determIna la forma en que los datos son 
emitldos desde el ordenador hacla el monitor o TV. 


DLI 

Display List Interrupt; mlentras que el haz catfidlco del 
tubo del televisor salta del margen derecho hacla el 
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comlenzo de la Ifnea slgulente (HBLANK = horizontal blank), 
se puede Interrumplr el tratamlento del DL con el fin 
procesar otras partes de programa en este corto espaclo 
tlempo. 


DOS 

Disk Operating System; un paquete software cargado del 
diskette cuya mlsl6n es la de coordlnar la unldad de disco y 
el ordenador* 


DUP 

Disk Utility Package; software que maneja determlnados 
comandos del DOS tales como COPY, etc* 


EOF 

End Of File; marca el final de un flchero* 


EOL 

End Of Line; marca el final de una Ifnea I6glca* 


FMS 

File Management System; parte del DOS que control a las 

% 

operaclones de en+rada/sa11 da "D:". 
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FP 


Floating Point; rutlna matemStlca utlllzada para procesar 
ndmeros dec Imales de coma flotante. 


GrSflco PM 

Player Missile Graphics; Jugadores y proyectlles, una 
varlante particular de sprites, objetos grSflcos, 
Independlentes del contenldo normal de la pantalla 
(GRAPHICS) en lo que a forma, color y movlmlento se reflere. 


I/O 

Input/Output; entrada/salIda. 


IOCB 

Input/Output Control Block; bloque de control de 
entrada/salIda utlllzado por el CIO para acceder a los 
per If6rIcos. 


Lfnea de modo 

Uni dad de trabajo para la representaclSn grSflca de la 
pantalla. SegGn el modo grSflco escogldo, una lfnea de modo 
puede ocupar 1, 2, 4, 8, 10 6 16 ITneas de TV. La 

InstruccISn ANTIC correspondlente determIna el ndmero de 
scan lines tratadas como lfnea de modo. 
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LMS 


Load Memory Scan; apunta con un puntero de 2 bytes hacla 
aquella parte de la memorla donde se encuentran datos a 
procesar, como por ejemplo datos de Imagen en el DL, e 
Indlca a I ordenador que debe procesar estos datos* 


Motor 

Un programa motor (manejador) coordlna el ordenador con los 
dlversos perlfSrlcos tales como "E^'dltor, "K:"eyboard, 
f, Ps"rInter o "D:'Mskette* 


Nibble 

Hace referenda a medio byte, tanto a la ml tad Inferior como 
a la superior de un byte* Al programar en lenguaje miqulna 
se reOnen ocho bits para escrlblr en notacI6n hexadecimal* 
Los nQmeros hexadeclmales tlenen base 16, se componen pues 
de 16 clfras (0 a 9, A, B, C, D, E, F)* Cada poslclfin de un 
nCimero hexadecimal corresponde a una potencla de 16* Para 
representar una cl fra hexadecimal se preclsan cuatro bits, o 
sea medio byte o nibble* Un byte abarca valores de 00000000 
a 11111111 en notaclon blnarla, de 0 a 255 en decimal y de 
00 a FF en hexadecimal* 


OS 

Operating System; el si sterna operatlvo o de operaclones que 
control a las fundones del ordenador. 
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bytes HI de todas las dlrecclones de memorla marcan el 
principle) de una pSglna. 


Pixel 

Picture Element; elemento de Imagen que conforma el 
contenldo grSflco de una Imagen de TV a2 mentada por el 
ordenador, Unldades de medlda del tubo de televlsl6n son 
Ifneas (scan lines) y puntos de imagen (color clocks; un 
color clock comprende dos puntos de Imagen), Un pixel puede 
tener una altura deflnlda por un nGmero varlado de Ifneas de 
pantalla y un ancho de varlos puntos de Imagen, dependlendo 
de la resolucl6n de modo grSflco escogldo. 


Powerup 

La conexI6n (powerup) da lugar a la ejecucI6n de vartas 
rutlnas que preparan al ordenador para su funclonamiento, 
Por ejemplo en varlos reglstros se escrlben valores 
Inlclales (default) y se comprueban determInados estados, 
como por ejemplo si estS conectada una estacI6n actlva de 
diskettes. 


Puntero 
Vea vector. 
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RAM 


Random Access Memory; memorla de acceso dlsponlble o de 
lec+ura y escrltura, que puede ser utlllzada por el usuarlo 
para escrlblr sus programas BASIC. La memorla RAM s6lo puede 
almacenar Informacl6n mlentras haya tenslfin en el 
dlsposltlvo. AI desconectarlo se borra toda la memorla RAM. 


Reglstro de sombra 

Para permltir en BASIC el acceso a de+ermlnados reglstros 
hardware, se han creado reglstros de sombra en los que 
pueden deposl+arse los valores deseados. Una escrltura en 
los reglstros hardware no tendr fa nlngGn efecto, puesto que 
cada 1/50 segundo se vuelve a escrlblr enclma de muchos de 
ellos. El BASIC es pues demaslado lento para Intervenlr aquf 
dlrectamente. Los valores de los reglstros de sombra son 
lefdos segQn el Impulso hertz de la mSquIna. Haclendo este 
rodeo se puede dar lugar a camblos permanentes. 


ROM 

Read Only Memory; Memorla de lectura anclada en chips de 
hardware, que contlene las Informaclones necesarlas del 
si sterna. Gracias a la memorlzacISn hardware estas 
Informaclones exlsten estructuralmente, es declr que 
permanecen aI desconectar el flujo elSctrlco. 


S10 

Serial Input/Output; Rutlnas encargadas de la entrada y 
sal I da de datos en serle. 
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Valor default 


Valor por defecto. 


VBLANK 

Vertical Blank; espacto de ttempo del momento en que el haz 
cat6d!co ha llegado a la esqulna Inferior derecha del tubo 
de televlslfin y vuelve a sal tar hacla la esqulna superior 
Izqulerda. En este corto Instante se desconecta el haz 
catfidlco. En la norma PAL un VBLANK se produce cada 1/50 
segundo. 


Vector 

Reglstro que contlene una dlrecclfin determInada, como por 
ejemplo la d!reccl6n InIcIa I de una zona de memorla o de una 
rutlna de programa. Para apuntar hacla cualquler dlrecclfin, 
el vector preclsa de dos bytes. Un vector de 1 byte contlene 
tan sfilo el byte HI, es declr que sfilo puede apuntar hacla 
el prlnclplo de una pfiglna. 


Valor poslclonal 

Cada cl fra de un nOmero obtlene un valor en fundfin de su 
poslclfin. En el si sterna decimal cada poslclfin corresponde a 
una potencla de base dlez, o sea 1, 10, 100, etc. De la 
mlsma manera un bit tlene cterto valor por su poslclfin 
dentro del byte, determInado por potenclas de base dos. El 
bit 7 tlene valor poslclonal 2 elevado a 7 = 128 decimal. 
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EL LIBRO ESCOLAR PARA 
ATARI 600XL/800XL/130XE 

Muchos programas In+eresantes d© soluc!6nes de problemas y d© 
aprendlzaje, descrltos d© forma amp I la y comprenslble, y ad©cuados 
sobre todo para escolares. jAquf ©I apr©ndlzaj© Intenslvo se convler+© 
©n una tarea divertI da! AI mSrgen d© temas como I os verbos 

Irregulares, o las ecuaclones de segundo grado, un resCimen corto de 
las bases del tratamlento el©ctr6n!co de datos, y una In+roducc!6n a 
I os prInclplos del anil Isis de problemas, completan este llbro que 
deberfa obrar en posesl6n de cualquler escolar. 
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El llbro escolar para ATARI 600XL/800XL/130XE 
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AVENTURAS 

Y COMO PROGRAMARLAS EN EL 
ATARI 600XL/800XL/130XE 

Jugar a aven+uras con 6x1to y programarI as uno mlsmo - todo lo 
verdaderamen+e Importan+e sobre el tema, lo contlene este gula 
fasclnan+e que te Neva trav6s del mundo fantSstlco de las aventuras. 
El llbro abarca todo el espectro, hasta las mSs soflstlcadas aventuras 
grSflcas Menas de trucos, acompafiSndolas slempre de numerosos 
programas ejemplo. S!n embargo la clave - al margen de muchas 
aventuras para tec Iear - es un generador de aventuras completo, 
medlante el cual la programac!6n de aventuras se convlerte en un juego 
de nlfios* 

Walkowlak 
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JUEGOS ESTRATEGICOS 
Y COMO PROGRAMARLOS EN EL 
ATARI 600XL/800XL/130XE 

Una lograda Introduce16n a I sugesttvo tema de I os "Juegos 
es+ratfiglcos". Desde Juegos senclllos con estrategla flja a juegos 
comp IeJos con procedfmlentos de bdsqueda hasta programas con capacldad 
de aprendlzaje - muchos ejemplos In+eresantes, escri+os por supuesto 
de forma facflmente comprenslble. Con programas de juegos ampllamente 
detallados: NIM con un mon+6n, bloqueo, hexapawn, mlnl-damas y muchos 
mSs. 

Schneider 

Juegos es+ra+Sglcos - y como programarlos en el ATARI 
600XL/800XL/130XE 

181 pSglnas, 1600 ISBN 84-86437-14-8 




r^r=n 


PEEKS Y POKES 

PARA 

ATARI 

600XL/8O0 XL/130 XI 
















■ mi « ibb/i nil rs or/^irro 

— 


f Ulf LiDHU DATA DCvHEn 



^ aotTMDO km miu w omtT, sjl 



1 






PEEKS Y POKES PARA ATARI 


Tan Interesante como el tema, es el llbro que exp I lea de forma 
facllmente comprenslble el manejo de Peeks y Pokes Importantes, y 
representa un gran ndmero de Pokes con sus poslblIIdades de 
apllcac16n, lncluyendo ademSs programas ejemplo. AI I ado de temas como 
lo son la memoria de la pantalla, los bits y los bytes, el mapa de la 
memorla, la tab I a de modos grSflcos o el sonldo, tamblSn se detalla de 
forma magntftca la estructura del ATARI 600XL/800XL/130XE. 
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EL CONTENIDO: 

Este libro le explica de forma sencilla el manejo de las 
ordenes PEEK y POKE. Contiene un gran numero de 
importantes «POKEs», con sus aplicaciones y muchos 
programas ejemplo. Ademas se describe muy bien la 
arquitectura del ATARI 600/800 XL / 130 XE. 


Extraccion del contenido: 

— ATARI-BASIC-PEEK-POKE 

— Juegos de numeros 

— Desfile de bits 

— Acercandonos a ROM y RAM 
—■ Mapa de memoria 

— Graficos de misiles para juegos 

— Sonido 

— Lista de display 

— Memoria de Pantalla 

— Tabla de modos graficos 

— Juego de caracteres 
y mucho mas 
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microcomputadores. Este ya es su segundo libro 
sobre ATARI, escrito de forma interesante y f&cilmente 
comprensible. 


I.S.B.N. 950-99088-2-7 



